2 ! One of two tests for the fix of PR23152 - There used to be
3 ! no warning for assumed shape arrays in namelists.
5 ! Conributed by Paul Thomas <pault@gcc.gnu.org>
7 program assumed_shape_nml
8 real, dimension (10) :: z
13 real, DIMENSION (1:) :: y
14 namelist /mynml
/ y
! { dg-warning "is an extension" }
17 end program assumed_shape_nml