flang/test/Semantics/altreturn06.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Test alternat return argument passing for internal and external subprograms
   3 ! Both of the following are OK
   4   call extSubprogram (*100)
   5   call intSubprogram (*100)
   6   call extSubprogram (*101)
   7   call intSubprogram (*101)
   8 100 PRINT *,'First alternate return'
   9 !ERROR: Label '101' is not a branch target
  10 !ERROR: Label '101' is not a branch target
  11 101 FORMAT("abc")
  12 contains
  13   subroutine intSubprogram(*)
  14     return(1)
  15   end subroutine
  16 end