forked from OSchip/llvm-project
22 lines
297 B
Fortran
22 lines
297 B
Fortran
|
|
||
|
|
|
||
|
|
!ERROR: label '600' was not found
|
||
|
|
if ( A ) 100, 200, 600
|
||
|
|
100 CONTINUE
|
||
|
|
200 CONTINUE
|
||
|
|
300 CONTINUE
|
||
|
|
|
||
|
|
!ERROR: label '601' was not found
|
||
|
|
if ( A ) 101, 601, 301
|
||
|
|
101 CONTINUE
|
||
|
|
201 CONTINUE
|
||
|
|
301 CONTINUE
|
||
|
|
|
||
|
|
!ERROR: label '602' was not found
|
||
|
|
if ( A ) 602, 202, 302
|
||
|
|
102 CONTINUE
|
||
|
|
202 CONTINUE
|
||
|
|
302 CONTINUE
|
||
|
|
|
||
|
|
END
|