gcc/testsuite/gfortran.dg/assign_7.f

   1 C { dg-do compile }
   2 C Option passed to avoid excess errors from obsolete warning
   3 C { dg-options "-w" }
   4
   5       PROGRAM FM013
   6       IF (ICZERO) 31270, 1270, 31270
   7  1270 CONTINUE
   8  1272 ASSIGN 1273 TO J
   9  1273 ASSIGN 1274 TO J
  10  1274 ASSIGN 1275 TO J
  11       GOTO 1276
  12  1275 continue
  13  1276 GOTO J, ( 1272, 1273, 1274, 1275 )
  14 31270 IVDELE = IVDELE + 1
  15       END
  16