modernc.org/ccgo/v3@v3.16.14/lib/testdata/gcc-9.1.0/gcc/testsuite/gcc.c-torture/compile/pr33855.c (about)

     1  /* Testcase by Martin Michlmayr <tbm@cyrius.com> */
     2  /* Used to segfault due to cselim not marking the complex temp var
     3     as GIMPLE reg.  */
     4  
     5  typedef struct {
     6    int nsant, nvqd;
     7    _Complex long double *vqd;
     8  } vsorc_t;
     9  vsorc_t vsorc;
    10  
    11  void foo(int next_job, int ain_num, int iped, long t) {
    12    long double zpnorm;
    13  
    14    while (!next_job)
    15      if (ain_num)
    16      {
    17        if (iped == 1)
    18          zpnorm = 0.0;
    19        int indx = vsorc.nvqd-1;
    20        vsorc.vqd[indx] = t*1.0fj;
    21        if (cabsl(vsorc.vqd[indx]) < 1.e-20)
    22          vsorc.vqd[indx] = 0.0fj;
    23        zpnorm = t;
    24        if (zpnorm > 0.0)
    25          iped = vsorc.nsant;
    26      }
    27  }