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