OSDN Git Service

2005-10-01 Paul Thomas <pault@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / private_type_1.f90
1 ! { dg-do compile }
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>
5 module modboom
6   implicit none
7   private
8   public:: dummysub ! { dg-error "PRIVATE type and cannot be a dummy argument" }
9   type:: intwrapper
10     integer n
11   end type intwrapper
12 contains
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
18 end module modboom
19