private_type_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 22 行

! { 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 <[e-mail]>
module modboom
  implicit none
  private
  public:: dummysub ! { dg-error "PRIVATE type and cannot be a dummy argument" }
  type:: intwrapper
    integer n
  end type intwrapper
contains
  subroutine dummysub(size, arg_array)
   type(intwrapper) :: size
   real, dimension(size%n) :: arg_array
   real :: local_array(4)
  end subroutine dummysub
end module modboom

! { dg-final { cleanup-modules "modboom" } }