blob: 53d727d9b286859c8b4f660122ce04d6483b2d96 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! { 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 <m.a.hulsen@tue.nl>
! Reduced by Tobias Burnus <burnus@net-b.de>
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
|
