[Bug fortran/56660] New: Fails to read NAMELIST with certain form array syntax

[Bug fortran/56660] New: Fails to read NAMELIST with certain form array syntax

[burnus at gcc dot gnu.org]

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

             Bug #: 56660
           Summary: Fails to read NAMELIST with certain form array syntax
    Classification: Unclassified
           Product: gcc
           Version: 4.9.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: burnus@gcc.gnu.org
                CC: jvdelisle@gcc.gnu.org, tilo@tilo-schwarz.de
        Depends on: 51825


Another namelist failure, found by Jerry. 
See also PR 49791, PR 51825, PR 55117, PR 52512.


When reading the file, gfortran fails with:
  At line 17 of file pr51825-3.f90 (unit = 99, file = 'nml.dat')
  Fortran runtime error: Cannot match namelist object name 'bb'

Using NAG, one gets the output:
 &NAML1 TRACER = XX F XX F XX F/
 &NAML1 TRACER = aa T bb T XX F/

(There are plenty ways of outputting this data - as long as the data is there.)



type ptracer
   character(len = 2)  :: sname
   logical              :: lini
end type ptracer
type(ptracer) , dimension(3) :: tracer
namelist/naml1/  tracer

tracer(:) = ptracer('XXX', .false.)
write (*, nml=naml1)

open (99, file='nml.dat', status="replace")
write(99,*) "&naml1"
write(99,*) "   tracer(:)   = 'aa' , .true."
write(99,*) "   tracer(2)   = 'bb' , .true."
write(99,*) "/"
rewind(99)
read (99, nml=naml1)
write (*, nml=naml1)
close (99, status="delete")
end

[Bug fortran/56660] Fails to read NAMELIST with certain form array syntax

[burnus at gcc dot gnu.org]

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

Tobias Burnus <burnus at gcc dot gnu.org> changed:

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

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-03-30 14:49:32 UTC ---
The example in comment 0 is based on PR49791 comment 19, see also PR49791
comment 24 with its related test case attachment 29751.

When closing, check that all those variants are fixed as well.

[Bug fortran/56660] Fails to read NAMELIST with certain form array syntax

[jvdelisle at gcc dot gnu.org]

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

--- Comment #2 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2013-04-01 20:33:52 UTC ---
Author: jvdelisle
Date: Mon Apr  1 20:30:41 2013
New Revision: 197321

URL: http://gcc.gnu.org/viewcvs?rev=197321&root=gcc&view=rev
Log:
2013-04-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

    PR libfortran/56660
    * io/list_read.c (nml_read_obj): Do not reset the read error flag
    inside nml_read_obj. If the read error flag is found set just exit.
    Fix some whitespace on comments.
    (nml_read_obj_data): Reset the read error flag before the first call
    to nml_read_object.

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/list_read.c

[Bug fortran/56660] Fails to read NAMELIST with certain form array syntax

[jvdelisle at gcc dot gnu.org]

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

--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2013-04-01 21:00:36 UTC ---
Author: jvdelisle
Date: Mon Apr  1 20:59:34 2013
New Revision: 197322

URL: http://gcc.gnu.org/viewcvs?rev=197322&root=gcc&view=rev
Log:
2013-04-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

    PR fortran/56660
    * gfortran.dg/namelist_82.f90:  New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/namelist_82.f90
Modified:
    trunk/gcc/testsuite/ChangeLog

[Bug fortran/56660] Fails to read NAMELIST with certain form array syntax

[jvdelisle at gcc dot gnu.org]

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

--- Comment #4 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2013-05-05 00:37:10 UTC ---
Fixed on trunk. Shall we close this?  The type extension bug, PR56117 remains.

[Bug fortran/56660] Fails to read NAMELIST with certain form array syntax

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |WAITING
   Last reconfirmed|                            |2014-01-05
      Known to work|                            |4.9.0
     Ever confirmed|0                           |1
      Known to fail|                            |4.7.3, 4.8.2

--- Comment #5 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> Fixed on trunk. Shall we close this?  The type extension bug, PR56117 remains.

I guess it is PR55117. I think this PR should be closed if there is no plans to
back port the fix.

[Bug fortran/56660] Fails to read NAMELIST with certain form array syntax

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=56660

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|WAITING                     |RESOLVED
         Resolution|---                         |FIXED

--- Comment #6 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> I guess it is PR55117. I think this PR should be closed if there is
> no plans to back port the fix.

No feedback for almost a year. The PR is fixed on 4.9.2 and on trunk (5.0).
Closing as FIXED.