[Bug fortran/25319] New: namelist error

[uttamp at us dot ibm dot com]

$ cat test.f95
program test_namelist
      call test1
      contains
         subroutine test1()
             real :: array(6)
             namelist /list/array
             read (*, nml=list)
             write (*, nml=list)
end

$ gfortran test.f95
$ ./a.out
&list array(1:5)=1.5

output
$ &LIST
 ARRAY=  1.500000    ,  0.000000    , 2.5253750E-29, 1.4012985E-45,
1.5694543E-43,    131089.0    ,  /

Shouldn't this set all the elements of array(1:6) to 1.5 value?

$ gfortran -v
gcc version 4.2.0 20051206 (experimental)


-- 
           Summary: namelist error
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: uttamp at us dot ibm dot com
 GCC build triplet: powerpc64-linux
  GCC host triplet: powerpc64-linux
GCC target triplet: powerpc64-linux


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