Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
81366019c6efef8d11834fc76046316251dc2263
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
encapsulate-variable
/
test-encap-01c-basic-dt.f90
blob: 66cd693e7709a7eebdfd6e8e62105f15537fcee4 [
file
] [
log
] [
blame
]
module
mod
implicit
none
type point
double
precision x
,
y
,
z
end
type
type
(
point
)
::
variable
!
8
,
18
,
8
end
module
program encap1
use
mod
implicit
none
print
*,
variable
variable
=
point
(
1.0
,
2.0
,
3.0
)
print
*,
variable
end
program encap1