! { dg-do compile }
! PR fortran/91660
program foo
   type(doubleprecision :: x   ! { dg-error "Malformed type-spec" }
   type(double precision :: y  ! { dg-error "Malformed type-spec" }
   type(character(len=3) :: a  ! { dg-error "Malformed type-spec" }
   type(doublecomplex :: b     ! { dg-error "Malformed type-spec" }
   type(double complex :: c    ! { dg-error "Malformed type-spec" }
end program foo