blob: 0072aba168025c4ef1c6aef5bb537fbf27b533c9 (
plain)
1
2
3
4
5
6
7
8
9
|
! { 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
|
