summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/execute/where21.f90
blob: 6826b87b688f28cdb550ce46cf0eaf000991fcd8 (plain)
1
2
3
4
5
6
7
8
9
! { dg-do run }
! Test fix for PR fortran/30207.
program a
  implicit none
  integer, parameter :: i(4) = (/ 1, 1, 1, 1 /)
  integer :: z(4) = (/ 1, 1, -1, -1 /)
  where(z < 0) z(:) = 1
  if (any(z /= i)) call abort
end program a