diff --git a/src/voc/OPP.Mod b/src/voc/OPP.Mod index 160cfec6..7971ab96 100644 --- a/src/voc/OPP.Mod +++ b/src/voc/OPP.Mod @@ -133,7 +133,9 @@ MODULE OPP; (* NW, RC 6.3.89 / 10.2.94 *) (* object model 4.12.93 *) PROCEDURE CheckSysFlag(VAR sysflag: INTEGER; default: INTEGER); VAR x: OPT.Node; sf: LONGINT; BEGIN - IF sym = lbrak THEN OPS.Get(sym); ConstExpression(x); + IF sym = lbrak THEN OPS.Get(sym); + IF ~OPT.SYSimported THEN err(135) END; + ConstExpression(x); IF x^.typ^.form IN intSet THEN sf := x^.conval^.intval; IF (sf < 0) OR (sf > OPM.MaxSysFlag) THEN err(220); sf := 0 END ELSE err(51); sf := 0 diff --git a/vocstatic.linux.gcc.x86_64 b/vocstatic.linux.gcc.x86_64 index ad35921c..a7a837dd 100755 Binary files a/vocstatic.linux.gcc.x86_64 and b/vocstatic.linux.gcc.x86_64 differ