xref: /llvm-project/flang/test/Semantics/altreturn01.f90 (revision 6c1ac141d3c98af9738bc77fcb55602cbff7751f) 
1*6c1ac141SIvan Zhechev! RUN: %python %S/test_errors.py %s %flang_fc1
264ab3302SCarolineConcatto! Check calls with alt returns
364ab3302SCarolineConcatto
464ab3302SCarolineConcatto       CALL TEST (N, *100, *200 )
564ab3302SCarolineConcatto       PRINT *,'Normal return'
664ab3302SCarolineConcatto       STOP
764ab3302SCarolineConcatto100    PRINT *,'First alternate return'
864ab3302SCarolineConcatto       STOP
964ab3302SCarolineConcatto200    PRINT *,'Secondnd alternate return'
1064ab3302SCarolineConcatto       END
11