Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-std=f2008" }

!

! Fortran 2008: TYPE ( intrinsic-type-spec )

!

implicit none

type(integer) :: a

type(real) :: b

type(logical ) :: c

type(character) :: d

type(double precision) :: e

type(integer(8)) :: f

type(real(kind=4)) :: g

type(logical ( kind = 1 ) ) :: h

type(character (len=10,kind=1) ) :: i

type(double complex) :: j ! { dg-error "Extension: DOUBLE COMPLEX" }

end

module m

  integer, parameter :: k4  = 4

end module m

type(integer (kind=k4)) function f()

  use m

  f = 42

end

! { dg-final { cleanup-modules "m" } }