1! RUN: %S/test_errors.sh %s %t %f18 2! 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 OK 6 type derived 7 end type 8 !ERROR: A derived type name cannot be the name of an intrinsic type 9 type integer 10 end type 11 !ERROR: A derived type name cannot be the name of an intrinsic type 12 type real 13 end type 14 !ERROR: A derived type name cannot be the name of an intrinsic type 15 type doubleprecision 16 end type 17 !ERROR: A derived type name cannot be the name of an intrinsic type 18 type complex 19 end type 20 !ERROR: A derived type name cannot be the name of an intrinsic type 21 type character 22 end type 23 !ERROR: A derived type name cannot be the name of an intrinsic type 24 type logical 25 end type 26end subroutine s 27