OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [realloc_on_assign_10.f90] - Rev 694

Compare with Previous | Blame | View Log

! { dg-do run }
! PR52012 - with realloc_lhs active(ie. default condition) the
! offset was wrongly calculated for a, after assignment.
!
! Reported by Reinhold Bader and Tobias Burnus  <burnus@gcc.gnu.org>
! 
program gf
  implicit none
  real, allocatable :: a(:,:,:)
  real, parameter :: zero = 0.0, one = 1.0
  real :: b(3,4,5) = zero
  b(1,2,3) = one
  allocate (a(size (b, 3), size (b, 2), size (b, 1)))
  a = reshape (b, shape (a), order = [3, 2, 1])
  if (any (a(:, 2, 1) .ne. [zero, zero, one, zero, zero])) call abort
  if (a(3, 2, 1) /= one) call abort()
  if (sum (abs (a)) /= one) call abort()
end program

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.