10 lines
318 B
Fortran
10 lines
318 B
Fortran
! { dg-do compile }
|
|
! PR fortran/40727
|
|
program test
|
|
integer, parameter :: sp = kind(1.e0), dp = kind(1.d0)
|
|
complex(sp) :: s
|
|
complex(dp) :: d
|
|
s = cmplx(0.e0, cmplx(0.e0,0.e0)) ! { dg-error "either REAL or INTEGER" }
|
|
d = dcmplx(0.d0, cmplx(0.d0,0.d0)) ! { dg-error "either REAL or INTEGER" }
|
|
end program test
|