robotux
/
rt_gccstream
1
0
Fork 0
Code Issues Pull Requests Releases Activity
rt_gccstream/gcc/testsuite/gfortran.fortran-torture/compile/forall-1.f90

8 lines
108 B
Fortran
Raw Permalink Blame History

integer i, a(1)
logical(kind=8) s(1)
s = .true.
a = 42
forall (i=1:1, .not. s(1)) a(i) = 0
end
Reference in New Issue View Git Blame Copy Permalink