| ! { 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 |
