gcc/testsuite/gfortran.dg/pdt_18.f03

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR82589
   4 !
   5 ! Contributed by G Steinmetz  <gscfq@t-online.de>
   6 !
   7 module m
   8    type t(a)
   9       integer, KIND, private :: a        ! { dg-error "attribute conflicts with" }
  10       integer, KIND, allocatable :: a    ! { dg-error "attribute conflicts with" }
  11       integer, KIND, POINTER :: a        ! { dg-error "attribute conflicts with" }
  12       integer, KIND, dimension(2) :: a   ! { dg-error "attribute conflicts with" }
  13       integer, len, private :: a         ! { dg-error "attribute conflicts with" }
  14       integer, len, allocatable :: a     ! { dg-error "attribute conflicts with" }
  15       integer, len, POINTER :: a         ! { dg-error "attribute conflicts with" }
  16       integer, len, dimension(2) :: a    ! { dg-error "attribute conflicts with" }
  17       integer, kind :: a
  18    end type
  19 end