The following illustrates this:

  character(30) :: line(3)
  namelist /stuff/ n
  n = 123
  line = ""
  write(line,nml=stuff)
  write(*,*) "1)",line(1)
  write(*,*) "2)",line(2)
  write(*,*) "3)",line(3)
  end 

$ ./a.out 
 1)&STUFF  N=        123,  /     
 2)                              
 3)                      

This is really low priority since F2003 disallows it any way. I presume the
output should be:

$ ./a.out 
 1)&STUFF
 2)N=        123,
 3)/

Any comments on validity of this?


-- 
           Summary: Namelist I/O to array character internal units
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Severity: minor
          Priority: P3
         Component: libfortran
        AssignedTo: jvdelisle at gcc dot gnu dot org
        ReportedBy: jvdelisle at gcc dot gnu dot org


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

Reply via email to