Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
e5f6fab10b208de0002e882eee13cb3914e0f532
/
.
/
org.eclipse.photran.core.vpg.tests
/
control-flow-test-code
/
test-forall
/
test-forall.f90
blob: 1192ba7660f1c717e0ebd6a411847dc651e25562 [
file
] [
log
] [
blame
]
program testforall
integer
,
dimension
(
10
)
::
array
forall
(
I
=
1
:
5
)
array
(
I
)
=
2
array
(
I
)
=
array
(
I
)
*
2
end
forall
end
program testforall
!<<<<<
9