Important Notice
The pages on this site contain documentation for very old MS-DOS software,
purely for historical purposes.
If you're looking for up-to-date documentation, particularly for programming,
you should not rely on the information found here, as it will be woefully
out of date.
$STRICT and $NOTSTRICT
◄Up► ◄Contents► ◄Index► ◄Back►
─────$STRICT and $NOTSTRICT─────────────────────────────────────────────────
Action
$STRICT disables the Microsoft language features not found in the
FORTRAN 77 full-language standard. $NOTSTRICT enables those
features.
Syntax $[NOT]STRICT
Remarks
The default is $NOTSTRICT. $NOTSTRICT and $STRICT can appear
anywhere in a source file, enabling and disabling the extensions
as desired.
The $[NOT]STRICT metacommand is equivalent to the /4{Y | N}
compiler option.
Example
$STRICT
C The following statement produces an error, because
C INTEGER*2 is not part of the FORTRAN 77 standard:
INTEGER*2 i
C The variable name (balance) will be truncated to six
C characters:
REAL balance(500)
C The following statement produces an error, because the
C MODE= option is not part of the FORTRAN 77 standard:
OPEN (2, FILE = 'BALANCE.DAT', MODE = 'READ')
DO 100 i = 1, 500
C The following statement produces an error, because the EOF
C intrinsic function is not part of the FORTRAN 77 standard;
C (EOF is treated as a REAL function):
IF (EOF (2)) GOTO 200
READ (2, '(F7.2)') balance(i)
100 CONTINUE
200 CONTINUE
END
-♦-