Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
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