1! { dg-do compile } 2! PR fortran/40727 3program test 4 integer, parameter :: sp = kind(1.e0), dp = kind(1.d0) 5 complex(sp) :: s 6 complex(dp) :: d 7 s = cmplx(0.e0, cmplx(0.e0,0.e0)) ! { dg-error "either REAL or INTEGER" } 8 d = dcmplx(0.d0, cmplx(0.d0,0.d0)) ! { dg-error "either REAL or INTEGER" } 9end program test 10