Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
2eb0f02b81fa1f31ac8825a10dc94f7ed01aa17c
/
.
/
org.eclipse.photran.core.vpg.tests
/
control-flow-test-code
/
test-where-stmt
/
test-where-stmt.f90.result
blob: 44a26270961c031049c8864184a0432b7d9ef4d9 [
file
] [
log
] [
blame
]
node1
:
null
=>
node3
node3
:
do
i
=
1
,
10
array
(
i
)
=
i
end
do
=>
node4
=>
node5
node4
:
array
(
i
)
=
i
=>
node3
node5
:
where
(
array
<
5
)
array
=
1
=>
node6
node6
:
array
=
1
=>
node7
node7
:
print
*,
"2"
=>
node2
node2
:
null