2 ! PR21986 - test based on original example.
3 ! A public subroutine must not have private-type, dummy arguments.
4 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
8 public:: dummysub ! { dg-error "PRIVATE type and cannot be a dummy argument" }
13 subroutine dummysub(size, arg_array)
14 type(intwrapper) :: size
15 real, dimension(size%n) :: arg_array
16 real :: local_array(4)
17 end subroutine dummysub
20 ! { dg-final { cleanup-modules "modboom" } }