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