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