Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
81366019c6efef8d11834fc76046316251dc2263
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
rename
/
bug278324.f90
blob: b136aa764a9dcdd05ca95e9d4e68c974b1809ac1 [
file
] [
log
] [
blame
]
PROGRAM
MyProgram
IMPLICIT NONE
CHARACTER
(
len
=
5
)
::
parmValFormat
!
3
,
25
999
FORMAT
(
'(A'
,
I2
,
','
)
WRITE
(
parmValFormat
,
999
)
!
5
,
11
WRITE
(
25
,
parmValFormat
// "' = ', I10, ' [CHANGED]')") ! 6,15
END
PROGRAM
MyProgram