| ! { dg-do compile } | |
| ! | |
| ! PR fortran/44446 | |
| ! | |
| ! Contributed by Marco Restelli. | |
| ! | |
| ! Procedure pointer with PROTECTED was wrongly rejected. | |
| ! | |
| module m | |
| implicit none | |
| abstract interface | |
| pure function i_f(x) result(y) | |
| real, intent(in) :: x | |
| real :: y | |
| end function i_f | |
| end interface | |
| procedure(i_f), pointer, protected :: p_f => null() | |
| end module m |