gcc/testsuite/gfortran.dg/interface_18.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

! { 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" } }