blob: 77e14156497146d21e2e872a9138f8dbdb432974 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { dg-do compile }
!
! PR fortran/111781
! We used to reject the example below because the dummy procedure g was
! setting the current namespace without properly restoring it, which broke
! the specification expression check for the dimension of A later on.
!
! Contributed by Rasmus Vikhamar-Sandberg <rasmus.vikhamar-sandberg@uit.no>
program example
implicit none
integer :: n
contains
subroutine f(g,A)
real, intent(out) :: A(n)
interface
pure real(8) function g(x)
real(8), intent(in) :: x
end function
end interface
end subroutine
end program
|
