Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
03f542c15d8e3281a0840028a704b36e992b6bc0
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
extract-procedure
/
test06-parameter.f90
blob: ce0d9b102c3d7be4f1be315fcb63b2373cbdbc2d [
file
] [
log
] [
blame
]
subroutine prob
integer
,
parameter
::
ROWS
=
5
,
COLS
=
7
real
::
matrix
(
ROWS
,
COLS
)
matrix
(:,
:)
=
0.0
!<<<<<
START
!<<<<<
END
print
*,
matrix
end
subroutine
program main
;
call prob
;
call flush
;
stop
;
end
program