where_nested_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 27 行

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