2 ! Tests the fix for PR26779, where an error would occur because
3 ! init was detected to be public with a private type dummy argument.
5 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
18 subroutine init(ir
, i
)
25 ! { dg-final { cleanup-modules "test" } }