1  /* { dg-do compile } */
       2  /* { dg-options "-fno-tree-dce -fno-tree-forwprop -Os -ffloat-store" } */
       3  
       4  extern long double cabsl (_Complex long double);
       5  
       6  typedef struct {
       7    int nsant, nvqd;
       8    _Complex long double *vqd;
       9  } vsorc_t;
      10  vsorc_t vsorc;
      11  
      12  void foo(int next_job, int ain_num, int iped, long t) {
      13    long double zpnorm;
      14  
      15    while (!next_job)
      16      if (ain_num)
      17      {
      18        if (iped == 1)
      19          zpnorm = 0.0;
      20        int indx = vsorc.nvqd-1;
      21        vsorc.vqd[indx] = t*1.0fj;
      22        if (cabsl(vsorc.vqd[indx]) < 1.e-20)
      23          vsorc.vqd[indx] = 0.0fj;
      24        zpnorm = t;
      25        if (zpnorm > 0.0)
      26          iped = vsorc.nsant;
      27      }
      28  }