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" } 10 type double precision ! { dg-error "cannot be the same as an intrinsic type" } 11 type doubleprecision ! { dg-error "cannot be the same as an intrinsic type" } 12 type double complex ! { dg-error "cannot be the same as an intrinsic type" } 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 20