[Bug libfortran/33421] [4.3 Regression] Weird quotation of namelist output of character arrays

["burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #1 from burnus at gcc dot gnu dot org  2007-09-13 18:40 -------
Another example. With gfortran 4.3.0 it print the following, with NAG f95, g95,
ifort and gfortran 4.2.2 the expected.

b1: " AAP NOOT MIES WIM ZUS JET                   "
b2: "b(2)='SURF.PRESSURE'                         "
b3: "b(3)='APEKOOL'                               "

Expected:
b1: " AAP NOOT MIES WIM ZUS JET                   "
b2: "SURF.PRESSURE                                "
b3: "APEKOOL                                      "


program test
implicit none
character(len=45) :: b(3)
namelist /nam/ b
b = 'x'
open(99)
write(99,'(4(a,/),a)') "&NAM", &
      " b(1)=' AAP NOOT MIES WIM ZUS JET',", &
      " b(2)='SURF.PRESSURE',", &
      " b(3)='APEKOOL',", &
      " /"
rewind(99)
read(99,nml=nam)
close(99,status='delete')

print '(3a)', 'b1: "',b(1),'"'
print '(3a)', 'b2: "',b(2),'"'
print '(3a)', 'b3: "',b(3),'"'

print '(/,"Expected:")'
print '(a)', 'b1: " AAP NOOT MIES WIM ZUS JET                   "'
print '(a)', 'b2: "SURF.PRESSURE                                "'
print '(a)', 'b3: "APEKOOL                                      "'
end program test


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |burnus at gcc dot gnu dot
                   |                            |org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33421