c { dg-do run }
c
c Test program for PR 17941.
c
      program PR17941
      complex c0, c1, c2, c3
      parameter (c0 = (-0.5, -     0.5))
      parameter (c1 = (-     0.5, +     0.5))
      parameter (c2 = (-    0.5E2, +0.5))
      parameter (c3 = (-0.5, +     0.5E-2))
      if (abs(c0 - cmplx(-0.5,-0.5)) > 1.E-4) call abort
      if (abs(c1 - cmplx(-0.5,+0.5)) > 1.E-4) call abort
      if (abs(c2 - cmplx(-0.5E2,+0.5)) > 1.E-4) call abort
      if (abs(c3 - cmplx(-0.5,+0.5E-2)) > 1.E-4) call abort
      end program PR17941