gcc/testsuite/gfortran.dg/pointer_array_10.f90

   1 ! { dg-do run }
   2 !
   3 ! Test the fix for PR87336, in which the 'span' field of the array
   4 ! descriptor, passed to 'show', was not set.
   5 !
   6 ! Contributed by Juergen Reuter  <juergen.reuter@desy.de> following
   7 ! a posting to clf by 'Spectrum'.
   8 !
   9 program main
  10   implicit none
  11   integer, target :: a( 2:4 )
  12
  13   a = [2,3,4]
  14 !  print *, "a [before] = ", a
  15   call show( a )
  16 !  print *, "a [after]  = ", a
  17   if (any (a .ne. [200,300,400])) stop 1
  18
  19 contains
  20   subroutine show( arr )
  21     integer, pointer, intent(in) :: arr(:)
  22 !    print *, "arr = ", arr
  23 !    print *, "bounds = ", lbound(arr), ubound(arr)
  24     arr(:) = [200,300,400]
  25 !    print *, "arr2= ", arr
  26   end subroutine show
  27   end program