aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/where_13.f90
blob: ce8d5822ef4f94cfb3d0da356e2e267775152a97 (plain)
1
2
3
4
5
6
7
8
9
10
! Check empty WHERE and empty ELSEWHERE works
program where_13
   integer :: a(5)

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