1! Test Non standard PRINT namelist - PR21432
2!
3! Contributor Paul Thomas  <pault@gcc.gnu.org>
4!
5! { dg-do run }
6! { dg-options "-std=gnu" }
7
8      real  x
9      namelist /mynml/ x
10      x = 1
11! { dg-output "^" }
12      print mynml ! { dg-output "&MYNML(\n|\r\n|\r) X=  1.00000000    ,(\n|\r\n|\r) /(\n|\r\n|\r)" }
13      end
14