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