1 c
       2 c             FORCHECK
       3 c         Usage of objects
       4 c
       5       DO i = 1, 10
       6         k = k + 1

(file: assign.for, line: 6)
  K
**[312 E] no value assigned to this variable

       7         IF (k .EQ. 1) THEN
       8           PRINT *, l

(file: assign.for, line: 8)
  L
**[313 I] possibly no value assigned to this variable

       9         ELSE
      10           READ *, l
      11         ENDIF
      12       ENDDO
      13       END