forked from OSchip/llvm-project
10 lines
215 B
Fortran
10 lines
215 B
Fortran
|
! Check calls with alt returns
|
||
|
|
|
||
|
|
CALL TEST (N, *100, *200 )
|
||
|
|
PRINT *,'Normal return'
|
||
|
|
STOP
|
||
|
|
100 PRINT *,'First alternate return'
|
||
|
|
STOP
|
||
|
|
200 PRINT *,'Secondnd alternate return'
|
||
|
|
END
|