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!
7module test
8contains
9  subroutine func_1(u,n)
10    integer :: n
11    integer :: u(n(1))  ! { dg-error "must be PURE" }
12  end subroutine
13end module test
14