26 lines
568 B
Fortran
26 lines
568 B
Fortran
! { 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 <pault@gcc.gnu.org>
|
|
!
|
|
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
|
|
! { dg-final { cleanup-modules "test" } }
|