Subversion Repositories openrisc_me

! { dg-do compile }

! Tests the fix for PR26779, where an error would occur because

! init was detected to be public with a private type dummy argument.

!

! Contributed by Paul Thomas  

!

module test

  public sub

  type, private :: t

    integer :: i

  end type t

contains

  subroutine sub (arg)

    integer arg

    type(t) :: root

    call init(root, arg)

  contains

    subroutine init(ir, i)

      integer i

      type(t) :: ir

      ir%i = i

    end subroutine init

  end subroutine sub

end module test