1! { dg-do compile }
2! { dg-options "-std=f95" }
3! PR21986 - test based on original example.
4! A public subroutine must not have private-type, dummy arguments.
5! Contributed by Paul Thomas <pault@gcc.gnu.org>
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) ! { dg-error "PRIVATE type and cannot be a dummy argument" }
15   type(intwrapper) :: size
16   real, dimension(size%n) :: arg_array
17   real :: local_array(4)
18  end subroutine dummysub
19end module modboom
20