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