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