summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/where_nested_1.f90
blob: c28cfcd9651b1ce607115984887fc3ae17b080e0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
! { dg-do compile }
! PR 25423: Nested WHERE constructs.
program nested_where

    implicit none
    integer :: a(4)
    logical :: mask1(4) = (/.TRUE., .TRUE., .FALSE., .FALSE./), &
               mask2(4) = (/.TRUE., .FALSE., .TRUE., .FALSE./)

    where (mask1)
        where (mask2)
            a = 1
        elsewhere
            a = 2
        end where
    elsewhere
        where (mask2)
            a = 3
        elsewhere
            a = 4
        end where
    end where

    print *, a

end program nested_where