gcc/testsuite/gcc.dg/20031216-1.c

   1 /* This used to abort due to a loop bug on s390*.  */
   2
   3 /* { dg-do run } */
   4 /* { dg-options "-O2" } */
   5 /* { dg-options "-O2 -fPIC" { target s390*-*-* } } */
   6
   7 int count = 0;
   8 char *str;
   9
  10 void test (int flag)
  11 {
  12   char *p;
  13
  14   for (;;)
  15     {
  16       if (count > 5)
  17         return;
  18
  19       p = "test";
  20
  21       if (flag)
  22         count++;
  23
  24       str = p;
  25     }
  26 }
  27
  28 int main (void)
  29 {
  30   test (1);
  31
  32   if (str[0] != 't')
  33     abort ();
  34
  35   return 0;
  36 }
  37