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