gcc/testsuite/gfortran.fortran-torture/execute/partparm.f90

   1 ! Program to test
   2 subroutine test (p)
   3    integer, dimension (3) :: p
   4
   5    if (any (p .ne. (/ 2, 4, 6/))) call abort
   6 end subroutine
   7
   8 program partparm
   9    implicit none
  10    integer, dimension (2, 3) :: a
  11    external test
  12
  13    a = reshape ((/ 1, 2, 3, 4, 5, 6/), (/ 2, 3/))
  14    call test (a(2, :))
  15 end program