1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { 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
|
