Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
879df9ffea483467329a5df64b58caf98263522a
/
.
/
org.eclipse.photran.core.vpg.tests
/
rename-test-code
/
bug278103-prog.f90
blob: ee1110a51991ce7360360d7181de1c23e9e2e6a3 [
file
] [
log
] [
blame
]
PROGRAM
MyProgram
CALL
MySub
CALL
MySub2
END
PROGRAM
MyProgram
subroutine
MySub
USE
Mod1
INTEGER
,
DIMENSION
(
DIM
)
::
MyArray
=
(
/1, 10, 100, 1000, 10000/
)
!
14
,
24
print
*,
MyArray
(
DIM
-
2
)
!
16
,
22
end
subroutine
MySub