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