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