Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
e5f6fab10b208de0002e882eee13cb3914e0f532
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
data-to-parameter
/
test-pointer
/
test-pointer.f90
blob: c6b05157cec821fdbfe609f2a3d0b6ca3b3c3469 [
file
] [
log
] [
blame
]
program testpointer
!<<<<<
1
,
1
,
fail
-
final
integer
,
pointer
::
p
integer
::
q
,
x
,
y
,
z
data x
/
1
/
data q
,
p
,
y
/
3
,
null
(),
1
/
data z
/
2
/
end
program testpointer