1! Test Non standard PRINT namelist - PR21432 is
2! not accepted by -std=f95
3!
4! Contributor Paul Thomas <pault@gcc.gnu.org>
5!
6! { dg-do compile }
7! { dg-options "-std=f95" }
8!
9 real x
10 namelist /mynml/ x
11 x = 1
12 print mynml ! { dg-error "PRINT namelist.*extension" "" }
13 end
14