gcc/testsuite/gfortran.dg/impure_spec_expr_1.f90

   1 ! { dg-do compile }
   2 ! Checks the fix for PR33664, in which the apparent function reference
   3 ! n(1) caused a seg-fault.
   4 !
   5 ! Contributed by Henrik Holst <holst@matmech.com>
   6 !
   7 module test
   8 contains
   9   subroutine func_1(u,n)
  10     integer :: n
  11     integer :: u(n(1))  ! { dg-error "must be PURE" }
  12   end subroutine
  13 end module test
  14 ! { dg-final { cleanup-modules "test" } }
  15