Subversion Repositories openrisc

! { dg-do run }

!

! PR fortran/46978

! The coor assignment was using the wrong loop bounds if the argument to

! transpose was an intrinsic function call

!

! Original testcase by Martien Huelsen 

! Reduced by Tobias Burnus 

program elastic2

  implicit none

  real, allocatable, dimension(:,:) :: coor

  real, allocatable, dimension(:) :: a

  integer :: nno

  nno = 3

  allocate(a(2*nno))

  call two()

  coor = transpose ( reshape ( a, (/2,nno/) ) )

  if (any(coor /= 12)) call abort

contains

  subroutine two()

    allocate(coor(3,2))

    coor = 99

    a = 12

  end subroutine

end program elastic2