(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.target/
s390/
pr80725.c
       1  /* Regression test for PR/80725.  */
       2  
       3  /* { dg-do compile } */
       4  /* { dg-options "-O2 -march=zEC12 -Wno-int-to-pointer-cast" } */
       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 *(void *)d;
      22  	g = b | b + g;
      23  	bar (g);
      24  	c = (char) (long) foo;
      25        }
      26  }