[Bug fortran/38135] New: FORALL gives wrong result

[burnus at gcc dot gnu dot org]

I expect that the following program prints:

    1    2    2
    2    1    2
    2    2    1
    1    0    0    0

which works with g95 and ifort, but with gfortran one gets:
    1    1*****
   72    1    1
*****   72    1
    1    0    0    0

The program is a minutely modified version of the program posted to c.l.f by
James Van Buskirk at
http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/e7ec475ff7935804

integer, parameter :: N = 3
integer A(N,N)
A(1:N,1:N)=reshape([integer::],[N,N],reshape([1],[N+1],[2]))
write(*,'(3i5)') A
write(*,'(4i5)') reshape([1],[N+1],[0])
end


-- 
           Summary: FORALL gives wrong result
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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