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