------- Comment #3 from tkoenig at gcc dot gnu dot org 2008-11-16 09:04 ------- Simplified test case (without the second reshape):
The problem appears to be the empty SOURCE with the presence of PAD. $ cat bar.f90 program main integer, parameter :: N = 3 integer :: A(N,N) integer :: b(n+1) b = (/ 1, 2, 2, 2 /) A(1:N,1:N)=reshape(A(1:0,1),(/N,N/),b) write(*,'(3i5)') A end program main $ gfortran bar.f90 $ ./a.out 1***** 1 ***** 1***** 1***** 1 -- tkoenig at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW Ever Confirmed|0 |1 Last reconfirmed|0000-00-00 00:00:00 |2008-11-16 09:04:10 date| | Summary|FORALL gives wrong result |RESHAPE gives wrong result http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38135