1 c
       2 c              FORCHECK
       3 c        Data type verification
       4 c
       5       READ *, i
       6       iflag = 0
       7       IF (i .EQ. 10) iflag = 10
       8       IF (iflag) PRINT *, iflag

(file: datatype.for, line: 8)
  iflag
**[303 E] scalar logical expression expected

       9       END