[Bug fortran/37498] New: Incorrect array value returned

[brtnfld at hdfgroup dot org]

GNU Fortran (GCC) 4.3.3 20080904 (prerelease)
FreeBSD  6.3-STABLE FreeBSD 6.3-STABLE, amd64

Given the program:

ROGRAM test_kind
 IMPLICIT NONE
 INTEGER :: i, j
 INTEGER, DIMENSION(1:3) :: kind_numbers
 kind_numbers(1:3) = 3
 DO i = 1, 3
    j = kind_numbers(i)
    PRINT*,i,j
 ENDDO
END PROGRAM test_kind

gfortran43 gives:
%a.out
          1           3
          2           0
          3           3 

gfortran44 and gfortran42 give the correct value of kind_numbers(2)=3


-- 
           Summary: Incorrect array value returned
           Product: gcc
           Version: 4.3.3
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: brtnfld at hdfgroup dot org


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