1 c
       2 c                  FORCHECK
       3 c          Incorrect tranfer of control
       4 c
       5       INTEGER iar(10,2)
       6       LOGICAL l
       7
       8       l = .TRUE.
       9
      10       DO 20 i = 1, 10
      11  10     IF (l) GOTO 20
      12         DO 20 j = 1, 20
      13  20   iar(i,j) = 0

(file: transfer.for, line: 13)
  20
**[404 E] referenced from outside construct

      14
      15       IF (l) GOTO 10

(file: transfer.for, line: 15)
  10
**[403 E] invalid transfer of control into construct

      16
      17       END