where_nested_1.f90

linux下编程用 编译软件

! { 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