gcc/testsuite/gfortran.dg/type_decl_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2008" }
   3 !
   4 ! Fortran 2008: TYPE ( intrinsic-type-spec )
   5 !
   6 implicit none
   7 type(integer) :: a
   8 type(real) :: b
   9 type(logical ) :: c
  10 type(character) :: d
  11 type(double precision) :: e
  12
  13 type(integer(8)) :: f
  14 type(real(kind=4)) :: g
  15 type(logical ( kind = 1 ) ) :: h
  16 type(character (len=10,kind=1) ) :: i
  17
  18 type(double complex) :: j ! { dg-error "Extension: DOUBLE COMPLEX" }
  19 end
  20
  21 module m
  22   integer, parameter :: k4  = 4
  23 end module m
  24
  25 type(integer (kind=k4)) function f()
  26   use m
  27   f = 42
  28 end