where_12.f90 « execute « gfortran.fortran-torture « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.fortran-torture/execute/where_12.f90

blob: c95dc979f6d829c4ee8e14316e6cf9db25924d89 (plain)

! Check empty WHEREs work
program where_12
   integer :: a(5)

   a = (/1, 2, 3, 4, 5/)
   where (a .eq. 1)
   endwhere
end program