gcc/testsuite/gcc.c-torture/execute/920501-3.c

   1 /* { dg-require-effective-target label_values } */
   2
   3 void abort (void);
   4 void exit (int);
   5
   6 int tab[9];
   7 void
   8 execute(oip, ip)
   9      unsigned short *oip, *ip;
  10 {
  11   int x = 0;
  12   int *xp = tab;
  13 base:
  14   x++;
  15   if (x == 4)
  16     {
  17       *xp = 0;
  18       return;
  19     }
  20   *xp++ = ip - oip;
  21   goto *(&&base + *ip++);
  22 }
  23
  24 int
  25 main(void)
  26 {
  27   unsigned short ip[10];
  28   int i;
  29   for (i = 0; i < 10; i++)
  30     ip[i] = 0;
  31   execute(ip, ip);
  32   if (tab[0] != 0 || tab[1] != 1 || tab[2] != 2 || tab[3] != 0)
  33     abort();
  34   exit(0);
  35 }