gcc/testsuite/gfortran.dg/type_decl_2.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3 !
   4 ! Fortran 2008: TYPE ( intrinsic-type-spec )
   5 !
   6 implicit none
   7 type(integer)          :: a ! { dg-error "Fortran 2008" }
   8 type(real)             :: b ! { dg-error "Fortran 2008" }
   9 type(logical)          :: c ! { dg-error "Fortran 2008" }
  10 type(character)        :: d ! { dg-error "Fortran 2008" }
  11 type(double precision) :: e ! { dg-error "Fortran 2008" }
  12 end