(root)/
gcc-13.2.0/
gcc/
testsuite/
gdc.test/
compilable/
test18936.d
// REQUIRED_ARGS: -fPIC -O -release -inline -m64 -betterC
// DISABLED: win32 win64

// https://issues.dlang.org/show_bug.cgi?id=18936
// produces assert failure cgxmm.c line 684

import core.stdc.math;

struct S
{
    double re, im;


    static S sqrtcx(S* z)
    {
        S c;
        real x,y,w,r;

        {
            x = fabs(z.re);
            y = fabs(z.im);
            if (z.re >= 0)
            {
                c.im = (z.im >= 0) ? w : -w;
                c.re = z.im / (c.im + c.im);
            }
        }
        return c;
    }
}