111
|
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
|