gcc/testsuite/gfortran.dg/proc_ptr_comp_52.f90

! { dg-do compile }
!
! PR 85395: [F03] private clause contained in derived type acquires spurious scope
!
! Contributed by <cfd@mnet-mail.de>

module defs
   implicit none

   type :: base
   contains
      private
   end type

   type :: options
      procedure(), pointer, nopass :: ptr
   end type

   type :: t
      private
      procedure(), pointer, nopass, public :: ptr
   end type
end module


program p
   use defs
   implicit none
   type(options) :: self
   type(t) :: dt
   self%ptr => null()
   dt%ptr => null()
end