| ! { dg-do compile } | |
| ! { dg-additional-options "-std=f95" } | |
| ! | |
| ! PR fortran/48776 | |
| ! The following used to generate a segmentation fault in the front-end, | |
| ! because a pointer to the get1 symbol was remaining in the get interface | |
| ! after the procedure statement was rejected and the symbol freed. | |
| interface get | |
| procedure get1 ! { dg-error "Fortran 2003: PROCEDURE statement" } | |
| end interface | |
| integer :: h | |
| call set1 (get (h)) ! { dg-error "no specific function for the generic 'get'" } | |
| contains | |
| subroutine set1 (a) | |
| integer, intent(in) :: a | |
| end subroutine | |
| integer function get1 (s) | |
| integer :: s | |
| end function | |
| end |