|
111
|
1 ! { dg-do compile }
|
|
|
2 ! PR 20897
|
|
|
3 ! Make sure intrinsic type names do not appear as names of derived types
|
|
|
4 type integer ! { dg-error "cannot be the same as an intrinsic type" }
|
|
|
5 type real ! { dg-error "cannot be the same as an intrinsic type" }
|
|
|
6 type complex ! { dg-error "cannot be the same as an intrinsic type" }
|
|
|
7 type character ! { dg-error "cannot be the same as an intrinsic type" }
|
|
|
8 type logical ! { dg-error "cannot be the same as an intrinsic type" }
|
|
|
9 type complex ! { dg-error "cannot be the same as an intrinsic type" }
|
|
145
|
10 type double precision
|
|
111
|
11 type doubleprecision ! { dg-error "cannot be the same as an intrinsic type" }
|
|
145
|
12 type double complex
|
|
111
|
13 type doublecomplex ! { dg-error "cannot be the same as an intrinsic type" }
|
|
|
14
|
|
|
15 type x
|
|
|
16 integer y
|
|
|
17 end type x
|
|
|
18 end
|
|
|
19
|
