1  /* { dg-add-options stack_size } */
       2  
       3  /* Origin: hp@bitrange.com
       4     Test that return values come out right from a 1000-level call chain to
       5     functions without parameters that each need at least one "long"
       6     preserved.  Exposed problems related to the MMIX port.  */
       7  
       8  long level = 0;
       9  extern long foo (void);
      10  extern long bar (void);
      11  
      12  #ifdef STACK_SIZE
      13  #define DEPTH ((STACK_SIZE) / 512 + 1)
      14  #else
      15  #define DEPTH 500
      16  #endif
      17  
      18  int
      19  main (void)
      20  {
      21    if (foo () == -42)
      22      exit (0);
      23  
      24    abort ();
      25  }
      26  
      27  long
      28  foo (void)
      29  {
      30    long tmp = ++level;
      31    return bar () + tmp;
      32  }
      33  
      34  long
      35  bar (void)
      36  {
      37    long tmp = level;
      38    return tmp > DEPTH - 1 ? -42 - tmp : foo () - tmp;
      39  }