[Bug libfortran/22046] matmul_1.f90 testsuite failure

[tkoenig at gcc dot gnu dot org]

------- Additional Comments From tkoenig at gcc dot gnu dot org  2005-06-13 14:52 -------
Reduced testcase:

program matmul_1
  integer, parameter                                :: N = 5
  integer, parameter                                :: T = 4
  real(kind=T), dimension(:,:), allocatable         :: a, b, c
  real(kind=T), dimension(N,N)                      :: y

  allocate (a(2*N, N), b(N, N), c(2*N, N))
  a = 1.0_T
  y = 2.0_T
  c = 0 + matmul (a, y)
  deallocate(c)     ! This segfaults

end program matmul_1

This works if the "0 +" is removed before the matmul.

-- 


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