gcc/testsuite/gfortran.dg/interface_18.f90

   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
  21 ! { dg-final { cleanup-modules "mytype_application" } }