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