blob: 7c2885910cf00d8aefecd28eec3b31b54f110397 [file] [log] [blame]
! { dg-do run }
! PR fortran/94578
! This used to give wrong results. Original test case by Jan-Willem
! Blokland.
program main
implicit none
type foo
integer :: x, y
end type foo
integer :: i
integer, dimension (2,2) :: array2d
integer, dimension(:), pointer :: array1d
type(foo), dimension(2*2), target :: solution
data array2d /1,2,3,4/
array1d => solution%x
array1d = reshape (source=array2d, shape=shape(array1d))
if (any (array1d /= [1,2,3,4])) stop 1
end program main