27 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! C729 A derived type type-name shall not be DOUBLEPRECISION or the same as 3! the name of any intrinsic type defined in this document.4subroutine s()5 ! This one's OK6 type derived7 end type8 !ERROR: A derived type name cannot be the name of an intrinsic type9 type integer10 end type11 !ERROR: A derived type name cannot be the name of an intrinsic type12 type real13 end type14 !ERROR: A derived type name cannot be the name of an intrinsic type15 type doubleprecision16 end type17 !ERROR: A derived type name cannot be the name of an intrinsic type18 type complex19 end type20 !ERROR: A derived type name cannot be the name of an intrinsic type21 type character22 end type23 !ERROR: A derived type name cannot be the name of an intrinsic type24 type logical25 end type26end subroutine s27