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