Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
4235588058e517b79893b665b17196fa01bb6472
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
encapsulate-variable
/
test-encap-06c-fail-allocatable1.f90
blob: c9f2bb11062b8ce7750ccb384ff5c4a3d8646a0a [
file
] [
log
] [
blame
]
module
mod
implicit
none
integer
,
dimension
(:),
allocatable
::
array
!
3
,
27
,
5
end
module
program encap1
use
mod
implicit
none
allocate
(
array
(
5
))
array
=
(
/ 10, 20, 30, 40, 50 /
)
print
*,
array
deallocate
(
array
)
end
program encap1