20010122-1.c: New test, exercise __builtin_return_address.

2001-01-22  Franz Sirl  <Franz.Sirl-kernel@lauterbach.com>

        * gcc.c-torture/execute/20010122-1.c: New test, exercise
        __builtin_return_address.

From-SVN: r39189

gcc/testsuite/ChangeLog

@@ -1,3 +1,8 @@
+2001-01-22  Franz Sirl  <Franz.Sirl-kernel@lauterbach.com>
+
+	* gcc.c-torture/execute/20010122-1.c: New test, exercise
+	__builtin_return_address.
+
 2001-01-22  Nathan Sidwell  <nathan@codesourcery.com>
 
 	* g++.old-deja/g++.martin/sts_partial.C: Remove XFAIL.

gcc/testsuite/gcc.c-torture/execute/20010122-1.c

@@ -0,0 +1,209 @@
+
+extern void exit (int);
+extern void abort (void);
+extern void *alloca (int);
+char *dummy (void);
+
+void *save_ret1[6];
+void *test4a (char *);
+void *test5a (char *);
+void *test6a (char *);
+
+void *test1 (void)
+{
+  void * temp;
+  temp = __builtin_return_address (0);
+  return temp;
+}
+
+void *test2 (void)
+{
+  void * temp;
+  dummy ();
+  temp = __builtin_return_address (0);
+  return temp;
+}
+
+void *test3 (void)
+{
+  void * temp;
+  temp = __builtin_return_address (0);
+  dummy ();
+  return temp;
+}
+
+void *test4 (void)
+{
+  char * save = (char*) alloca (4);
+  
+  return test4a (save);
+}
+
+void *test4a (char * p)
+{
+  void * temp;
+  temp = __builtin_return_address (1);
+  return temp;
+}
+
+void *test5 (void)
+{
+  char * save = (char*) alloca (4);
+  
+  return test5a (save);
+}
+
+void *test5a (char * p)
+{
+  void * temp;
+  dummy ();
+  temp = __builtin_return_address (1);
+  return temp;
+}
+
+void *test6 (void)
+{
+  char * save = (char*) alloca (4);
+  
+  return test6a (save);
+}
+
+void *test6a (char * p)
+{
+  void * temp;
+  temp = __builtin_return_address (1);
+  dummy ();
+  return temp;
+}
+
+void *(*func1[6])(void) = { test1, test2, test3, test4, test5, test6 };
+
+char * call_func1 (int i)
+{
+  char * save = (char*) alloca (4);
+
+  save_ret1[i] = func1[i] ();
+
+  return save;
+}
+
+
+static void *ret_addr;
+void *save_ret2[6];
+void test10a (char *);
+void test11a (char *);
+void test12a (char *);
+
+void test7 (void)
+{
+  ret_addr = __builtin_return_address (0);
+  return;
+}
+
+void test8 (void)
+{
+  dummy ();
+  ret_addr = __builtin_return_address (0);
+  return;
+}
+
+void test9 (void)
+{
+  ret_addr = __builtin_return_address (0);
+  dummy ();
+  return;
+}
+
+void test10 (void)
+{
+  char * save = (char*) alloca (4);
+  
+  test10a (save);
+}
+
+void test10a (char * p)
+{
+  ret_addr = __builtin_return_address (1);
+  return;
+}
+
+void test11 (void)
+{
+  char * save = (char*) alloca (4);
+  
+  test11a (save);
+}
+
+void test11a (char * p)
+{
+  dummy ();
+  ret_addr = __builtin_return_address (1);
+  return;
+}
+
+void test12 (void)
+{
+  char * save = (char*) alloca (4);
+  
+  test12a (save);
+}
+
+void test12a (char * p)
+{
+  ret_addr = __builtin_return_address (1);
+  dummy ();
+  return;
+}
+
+char * dummy (void)
+{
+  char * save = (char*) alloca (4);
+  
+  return save;
+}
+
+void (*func2[6])(void) = { test7, test8, test9, test10, test11, test12 };
+
+char * call_func2 (int i)
+{
+  char * save = (char*) alloca (4);
+
+  func2[i] ();
+  save_ret2[i] = ret_addr;
+
+  return save;
+}
+
+int main (void)
+{
+  int i;
+
+  for (i = 0; i < 6; i++) {
+    call_func1(i);
+  }
+
+  if (save_ret1[0] != save_ret1[1]
+      || save_ret1[1] != save_ret1[2])
+    abort ();
+  if (save_ret1[3] != save_ret1[4]
+      || save_ret1[4] != save_ret1[5])
+    abort ();
+  if (save_ret1[3] && save_ret1[0] != save_ret1[3])
+    abort ();
+
+
+  for (i = 0; i < 6; i++) {
+    call_func2(i);
+  }
+
+  if (save_ret2[0] != save_ret2[1]
+      || save_ret2[1] != save_ret2[2])
+    abort ();
+  if (save_ret2[3] != save_ret2[4]
+      || save_ret2[4] != save_ret2[5])
+    abort ();
+  if (save_ret2[3] && save_ret2[0] != save_ret2[3])
+    abort ();
+
+  exit (0);
+}