flang/test/Semantics/resolve84.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   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.
   4 subroutine 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
  26 end subroutine s