diff options
Diffstat (limited to 'flang/test/Semantics/altreturn06.f90')
-rw-r--r-- | flang/test/Semantics/altreturn06.f90 | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/flang/test/Semantics/altreturn06.f90 b/flang/test/Semantics/altreturn06.f90 new file mode 100644 index 000000000000..27a7b9a04540 --- /dev/null +++ b/flang/test/Semantics/altreturn06.f90 @@ -0,0 +1,16 @@ +! RUN: %S/test_errors.sh %s %t %f18 +! Test alternat return argument passing for internal and external subprograms +! Both of the following are OK + call extSubprogram (*100) + call intSubprogram (*100) + call extSubprogram (*101) + call intSubprogram (*101) +100 PRINT *,'First alternate return' +!ERROR: Label '101' is not a branch target +!ERROR: Label '101' is not a branch target +101 FORMAT("abc") +contains + subroutine intSubprogram(*) + return(1) + end subroutine +end |