Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

!

! PR 40089: Public type with public component which has a private type

!

! Original test case by Juergen Reuter 

! Adapted by Janus Weil 

module m

  implicit none

  private

  public :: public_t

  type :: private_t

    integer :: i

  end type

  type :: public_t

     type(private_t), pointer :: public_comp_with_private_type

     procedure(ifc) , nopass, pointer :: ppc

  end type

  abstract interface

     integer function ifc ()

     end function

  end interface

end module m

program test

use m

implicit none

type(public_t) :: x

integer :: j

j = x%ppc()

end

! { dg-final { cleanup-modules "m" } }