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! 6module modboom 7 implicit none 8 private 9 public:: dummysub 10 type:: intwrapper 11 integer n 12 end type intwrapper 13contains 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 19end module modboom 20