interface_18.f90

来自「用于进行gcc测试」· F90 代码 · 共 22 行

! { dg-do compile }
! { dg-options "-std=f2003" }
!
! Public procedures with private types for the dummies
! is valid F2003, but invalid per Fortran 95, Sect. 5.2.3
! See interface_15.f90 for the F95 test case.
!
   module mytype_application
     implicit none
     private
     public :: mytype_test
     type :: mytype_type
       integer :: i=0
     end type mytype_type
   contains
     subroutine mytype_test( mytype )
       type(mytype_type), intent(in out) :: mytype
     end subroutine mytype_test
   end module mytype_application 

! { dg-final { cleanup-modules "mytype_application" } }