Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
4862e0ef11eafa53a5da758a3f72723b17450d71
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
rename
/
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