Subversion Repositories openrisc

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