22 lines
619 B
Fortran
22 lines
619 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-std=f95" }
|
|
! PR21986 - test based on original example.
|
|
! A public subroutine must not have private-type, dummy arguments.
|
|
! Contributed by Paul Thomas <pault@gcc.gnu.org>
|
|
module modboom
|
|
implicit none
|
|
private
|
|
public:: dummysub
|
|
type:: intwrapper
|
|
integer n
|
|
end type intwrapper
|
|
contains
|
|
subroutine dummysub(size, arg_array) ! { dg-error "PRIVATE type and cannot be a dummy argument" }
|
|
type(intwrapper) :: size
|
|
real, dimension(size%n) :: arg_array
|
|
real :: local_array(4)
|
|
end subroutine dummysub
|
|
end module modboom
|
|
|
|
! { dg-final { cleanup-modules "modboom" } }
|