gcc/testsuite/gcc.target/s390/pr80725.c

   1 /* Regression test for PR/80725.  */
   2
   3 /* { dg-do compile } */
   4 /* { dg-options "-O2 -march=zEC12" } */
   5
   6 int a, e;
   7 const char b;
   8 char c;
   9 const int d;
  10 void bar (short);
  11
  12 void
  13 foo (int x, int y)
  14 {
  15   long f = d;
  16   short g = 0;
  17   while (e)
  18     while (a < x)
  19       {
  20         if (y)
  21           goto *d;
  22         g = b | b + g;
  23         bar (g);
  24         c = (char) (long) foo;
  25       }
  26 }