| ! { 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 |