mirror of git://gcc.gnu.org/git/gcc.git
21 lines
392 B
Fortran
21 lines
392 B
Fortran
! { 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
|
|
|
|
! { dg-final { cleanup-modules "m" } }
|