flang/test/Semantics/altreturn01.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang_fc1
   2 ! REQUIRES: shell
   3 ! Check calls with alt returns
   4
   5        CALL TEST (N, *100, *200 )
   6        PRINT *,'Normal return'
   7        STOP
   8 100    PRINT *,'First alternate return'
   9        STOP
  10 200    PRINT *,'Secondnd alternate return'
  11        END