sdcc/support/regression/tests/gcc-torture-execute-990128-1.c

   1 /*
   2    990128-1.c from the execute part of the gcc torture suite.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #endif
  10
  11 extern int printf (const char *,...);
  12
  13 struct s { struct s *n; } *p;
  14 struct s ss;
  15 #define MAX     10
  16 struct s sss[MAX];
  17 int count = 0;
  18
  19 void sub( struct s *p, struct s **pp );
  20 int look( struct s *p, struct s **pp );
  21
  22 void
  23 testTortureExecute (void)
  24 {
  25     struct s *pp;
  26     struct s *next;
  27     int i;
  28
  29     p = &ss;
  30     next = p;
  31     for ( i = 0; i < MAX; i++ ) {
  32         next->n = &sss[i];
  33         next = next->n;
  34     }
  35     next->n = 0;
  36
  37     sub( p, &pp );
  38     if (count != MAX+2)
  39       ASSERT ( 0 );
  40
  41     return;
  42 }
  43
  44 void sub( struct s *p, struct s **pp )
  45 {
  46    for ( ; look( p, pp ); ) {
  47         if ( p )
  48             p = p->n;
  49         else
  50             break;
  51    }
  52 }
  53
  54 int look( struct s *p, struct s **pp )
  55 {
  56     for ( ; p; p = p->n )
  57         ;
  58     *pp = p;
  59     count++;
  60     return( 1 );
  61 }
  62