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