Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
3d8d6c031fe2055f48f724ff2a34ff21191b2fce
/
.
/
org.eclipse.photran.core.vpg.tests
/
rename-test-code
/
bug278103-subs.f90
blob: b106a7c4d04201100af4442d359486951a408934 [
file
] [
log
] [
blame
]
subroutine
MySub2
USE
Mod1
REAL
::
MyArray2
(
DIM
)
!
5
,
22
SAVE
MyArray2
MyArray2
(
DIM
-
3
)
=
0.1
!
9
,
14
print
*,
MyArray2
(
DIM
-
3
)
!
11
,
23
CALL
PrintDim
end
subroutine
MySub2