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