gcc/testsuite/gfortran.dg/private_type_8.f90

   1 ! { dg-do compile }
   2 ! A public subroutine can have private-type, dummy arguments
   3 ! in Fortran 2003 (but not in Fortran 95).
   4 ! See private_type_1.f90 for the F95 test.
   5 !
   6 module modboom
   7   implicit none
   8   private
   9   public:: dummysub
  10   type:: intwrapper
  11     integer n
  12   end type intwrapper
  13 contains
  14   subroutine dummysub(size, arg_array)
  15    type(intwrapper) :: size
  16    real, dimension(size%n) :: arg_array
  17    real :: local_array(4)
  18   end subroutine dummysub
  19 end module modboom
  20
  21 ! { dg-final { cleanup-modules "modboom" } }