Subversion Repositories openrisc

! { dg-do run }

! Tests the fix for PR40646 in which the assignment would cause an ICE.

!

! Contributed by Charlie Sharpsteen  

! http://gcc.gnu.org/ml/fortran/2009-07/msg00010.html

! and reported by Tobias Burnus  

!

module bugTestMod

  implicit none

  type:: boundTest

  contains

    procedure, nopass:: test => returnMat

  end type boundTest

contains

  function returnMat( a, b ) result( mat )

    integer:: a, b, i

    double precision, dimension(a,b):: mat

    mat = dble (reshape ([(i, i = 1, a * b)],[a,b]))

    return

  end function returnMat

end module bugTestMod

program bugTest

  use bugTestMod

  implicit none

  integer i

  double precision, dimension(2,2):: testCatch

  type( boundTest ):: testObj

  testCatch = testObj%test(2,2)  ! This would cause an ICE

  if (any (testCatch .ne. dble (reshape ([(i, i = 1, 4)],[2,2])))) call abort

end program bugTest

! { dg-final { cleanup-modules "bugtestmod" } }