Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
e5f6fab10b208de0002e882eee13cb3914e0f532
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
permute-subroutine-args
/
test-alternate-return
/
test-alternate-return.f90.result
blob: 15f53cb5f35e44c3b9334db72ccfcc13f5ce1af2 [
file
] [
log
] [
blame
]
program testaltreturn
call testsub
(
200
,
3
,
4
,
200
,
10
,
E
=
10
,
D
=
2
)
200
print
*,
"hello, world!"
end
program
subroutine testsub
(*,
B
,
A
,*,
C
,
E
,
D
)
!<<<<<
8
,
1
,
8
,
5
,
2
,
1
,
0
,
4
,
3
,
6
,
5
,
pass
end
subroutine