[Bug fortran/47778] reading two arrays of structures from namelist fails

[burnus at gcc dot gnu.org]

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

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

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |wrong-code
                 CC|                            |burnus at gcc dot gnu.org,
                   |                            |jvdelisle at gcc dot
                   |                            |gnu.org

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-02-17 10:40:18 UTC ---
At line 27 of file test.f90 (unit = 10, file = '/tmp/gfortrantmp2WKkUW')
Fortran runtime error: Cannot match namelist object name 2

I get the same error with gfortran 4.1.2 20080704 (Red Hat 4.1.2-48)
Thus, it does not seem to be a regression. It works with ifort 11.1, pgf90
10.1-0 and pathscale 3.2.99.

* * *

type field_descr
  integer number
end type
type fsetup
  type (field_descr) :: vel(1)
  type (field_descr) :: scal(1)
end type

&nl_setup"
 field_setup%vel(1)%number=  3,
 field_setup%scal(1)%number=  2 /


For this variant, the error message for the second line of the namelist is some
uninitialized garbage:

At line 23 of file foobar.f90 (unit = 10, file = '/tmp/gfortrantmpMxI6TY')
Fortran runtime error: L�7�


The namelist reading works, if "scal" is a scalar instead of an array.
However, if "vel" is a scalar and "scal" an array, it fails - unless one swaps
the "vel" and "scal" lines in the input file.