Intel Fortran Language Reference - NCI National Facility

Directive Enhanced Compilation 14
These directives take the following form:
cDEC$ STRICT
cDEC$ NOSTRICT
c
Is one of the following: C (or c), !, or * (see “Syntax Rules for Compiler Directives”).
Rules and Behavior
If STRICT is specified and no language standard is specified on the command line, the default is
to disable features not found in Fortran 90.
The STRICT and NOSTRICT directives can appear only appear at the top of a program unit. A
program unit is a main program, an external subroutine or function, a module, or a block data
program unit. The directives cannot appear between program units, or at the beginning of internal
subprograms. They do not affect any modules invoked with the USE statement in the program unit
that contains them.
Example
Consider the following:
! NOSTRICT by default
TYPE stuff
INTEGER(4) k
INTEGER(4) m
CHARACTER(4) name
END TYPE stuff
TYPE (stuff) examp
DOUBLE COMPLEX cd
cd = (3.0D0, 4.0D0)
examp.k = 4
END
SUBROUTINE STRICTDEMO( )
!DEC$ STRICT
TYPE stuff
INTEGER(4) k
INTEGER(4) m
CHARACTER(4) name
END TYPE stuff
TYPE (stuff) samp
! non-standard data type, no error
! non-standard component designation,
! no error
14-39