gcc/testsuite/gfortran.dg/pointer_assign_15.f90

   1 ! { dg-do run }
   2 ! PR fortran/94578
   3 ! This used to give wrong results.  Original test case by Jan-Willem
   4 ! Blokland.
   5 program main
   6   implicit none
   7   type foo
   8      integer :: x, y
   9   end type foo
  10   integer :: i
  11   integer, dimension (2,2) :: array2d
  12   integer, dimension(:), pointer :: array1d
  13   type(foo), dimension(2*2), target :: solution
  14   data array2d /1,2,3,4/
  15   array1d => solution%x
  16   array1d = reshape (source=array2d, shape=shape(array1d))
  17   if (any (array1d /= [1,2,3,4])) stop 1
  18 end program main