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

   1 /* { dg-do run } */
   2 /* { dg-options "-O2 -fpic" } */
   3 /* { dg-warning "not supported" "PIC unsupported" { target cris-*-elf* cris-*-aout* mmix-*-* } 0 } */
   4
   5 extern void abort (void);
   6 extern void exit (int);
   7
   8 int bar (int x, char **y)
   9 {
  10   if (x != 56)
  11     abort ();
  12   if (**y != 'a')
  13     abort ();
  14   *y = "def";
  15   return 1;
  16 }
  17
  18 int baz (int x, char **y)
  19 {
  20   if (x != 56)
  21     abort ();
  22   if (**y != 'a')
  23     abort ();
  24   return 26;
  25 }
  26
  27 int foo (int x, char *y)
  28 {
  29   int a;
  30   char *b = y;
  31   a = bar (x, &y);
  32   if (a)
  33     {
  34       y = b;
  35       a = baz (x, &y);
  36     }
  37   if (a)
  38     return a;
  39
  40   baz (x, &y);
  41   return 0;
  42 }
  43
  44 int main ()
  45 {
  46   if (foo (56, "abc") != 26)
  47     abort ();
  48   exit (0);
  49 }