Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
forall-1.f90
blob: caaea088ac31f63c76c8fcee05357f72f3dfbcf9 [
file
] [
log
] [
blame
]
integer i
,
a
(
1
)
logical
(
kind
=
8
)
s
(
1
)
s
=
.
true
.
a
=
42
forall
(
i
=
1
:
1
,
.
not
.
s
(
1
))
a
(
i
)
=
0
end