1! { dg-do compile }
2! { dg-options "-std=f2003" }
3!
4! Public procedures with private types for the dummies
5! is valid F2003, but invalid per Fortran 95, Sect. 5.2.3
6! See interface_15.f90 for the F95 test case.
7!
8   module mytype_application
9     implicit none
10     private
11     public :: mytype_test
12     type :: mytype_type
13       integer :: i=0
14     end type mytype_type
15   contains
16     subroutine mytype_test( mytype )
17       type(mytype_type), intent(in out) :: mytype
18     end subroutine mytype_test
19   end module mytype_application
20