Merge to HEAD at tree-cleanup-merge-20041024 .
[official-gcc.git] / gcc / testsuite / gcc.dg / sibcall-2.c
blob4c226c496e358f25c8f85a0cb1bdceb298a2212b
1 /* Simple check that sibling calls are performed from a
2 void non-leaf-function taking no arguments calling itself.
4 Copyright (C) 2002 Free Software Foundation Inc.
5 Contributed by Hans-Peter Nilsson <hp@bitrange.com> */
7 /* { dg-do run } */
8 /* { dg-options "-O2 -foptimize-sibling-calls" } */
10 /* The option -foptimize-sibling-calls is the default, but serves as
11 marker. Self-recursion tail calls are optimized for all targets,
12 regardless of presence of sibcall patterns. */
14 extern void abort (void);
15 extern void exit (int);
17 extern void recurser_void (void);
18 extern void track (void);
20 int n = 0;
21 int main ()
23 recurser_void ();
24 exit (0);
27 void
28 recurser_void (void)
30 if (n == 0 || n == 7)
31 track ();
33 if (n == 10)
34 return;
35 n++;
36 recurser_void ();
39 void *trackpoint;
41 void
42 track ()
44 char stackpos[1];
46 if (n == 0)
47 trackpoint = stackpos;
48 else if (n != 7 || trackpoint != stackpos)
49 abort ();