diff --git a/src/FEQParse.F90 b/src/FEQParse.F90 index d2d1233..670825d 100644 --- a/src/FEQParse.F90 +++ b/src/FEQParse.F90 @@ -198,7 +198,8 @@ subroutine Tokenize(parser, tokenized, errorMsg) integer, allocatable :: maxVarLen, varLen tokenized = .false. - + errorMsg = '' + call parser%infix%Construct(Stack_Length) maxVarLen = 0