Subversion Repositories openrisc

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