gcc/testsuite/gcc.dg/pr92263.c

   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 }