2 ! { dg-options "-std=gnu" }
3 ! PR45710 Adjust format/padding for WRITE of NAMELIST group to internal file
5 real :: a
=1,b
=2,c
=3,d
=4
8 character(len
=80) :: out(ilines
)
10 ! fill array out with @
16 if (out(1).ne
."&NL1") call abort
17 if (out(2).ne
." A= 1.00000000 ,") call abort
18 if (out(3).ne
." B= 2.00000000 ,") call abort
19 if (out(4).ne
." C= 3.00000000 ,") call abort
20 if (out(5).ne
." /") call abort