| ! { dg-do compile } | |
| ! One of two tests for the fix of PR23152 - There used to be | |
| ! no warning for assumed shape arrays in namelists. | |
| ! | |
| ! Conributed by Paul Thomas <pault@gcc.gnu.org> | |
| ! | |
| program assumed_shape_nml | |
| real, dimension (10) :: z | |
| z = 42.0 | |
| call foo (z) | |
| contains | |
| subroutine foo (y) | |
| real, DIMENSION (:) :: y | |
| namelist /mynml/ y | |
| write (*, mynml) | |
| end subroutine foo | |
| end program assumed_shape_nml |