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