OSDN Git Service

b6e915104b95a9a8a40e4c7c84bfc2e3590869ea
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / private_type_1.f90
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>
6 module modboom
7   implicit none
8   private
9   public:: dummysub ! { dg-error "PRIVATE type and cannot be a dummy argument" }
10   type:: intwrapper
11     integer n
12   end type intwrapper
13 contains
14   subroutine dummysub(size, arg_array)
15    type(intwrapper) :: size
16    real, dimension(size%n) :: arg_array
17    real :: local_array(4)
18   end subroutine dummysub
19 end module modboom
20
21 ! { dg-final { cleanup-modules "modboom" } }