gcc/testsuite/gfortran.dg/derived_name_2.f

   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