4 type(doubleprecision :: x
! { dg-error "Malformed type-spec" }
5 type(double precision :: y
! { dg-error "Malformed type-spec" }
6 type(character(len
=3) :: a
! { dg-error "Malformed type-spec" }
7 type(doublecomplex :: b
! { dg-error "Malformed type-spec" }
8 type(double complex :: c
! { dg-error "Malformed type-spec" }