program forall4
parameter (n=16)
integer a(n)
!hpf$ processors p(4)
a=1
 where(a>0) 
  a=0
 else where
  a=1
 end where
print *,a
end
