blob: 27a7b9a045400b54f1ab2c700bf75661b4b8561f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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
|
GitWeb
