OSDN Git Service

2011-04-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / namelist_65.f90
1 ! { dg-do run }
2 ! { dg-options "-std=gnu" }
3 ! PR45710 Adjust format/padding for WRITE of NAMELIST group to internal file
4 program oneline
5 real :: a=1,b=2,c=3,d=4
6 namelist /nl1/ a,b,c
7 parameter(ilines=5)
8 character(len=80) :: out(ilines)
9
10 ! fill array out with @
11 do i=1,len(out)
12    out(:)(i:i)='@'
13 enddo
14
15 write(out,nl1)
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
21
22 end program oneline