diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gcc.dg/20020201-1.c | 37 |
2 files changed, 42 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8a435e2..3be0340 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2002-02-01 Janis Johnson <janis187@us.ibm.com> + + PR target/5469 + * gcc.dg/20020201-1.c: New test. + 2002-02-01 David.Billinghurst <David.Billinghurst@riotinto.com> PR fortran/3743 diff --git a/gcc/testsuite/gcc.dg/20020201-1.c b/gcc/testsuite/gcc.dg/20020201-1.c new file mode 100644 index 0000000..1132637 --- /dev/null +++ b/gcc/testsuite/gcc.dg/20020201-1.c @@ -0,0 +1,37 @@ +/* Check that arc profiling instrumentation code does not cause problems for + a program that calls functions that are likely to be in a shared library. + This was added to check the fix for PR target/5469, which prevents arc + profiling code from being inserted between a call and the restore of the + call-clobbered global pointer. */ + +/* { dg-options "-fprofile-arcs" } */ +/* { dg-do run { target native } } */ + +int rand (void); +void srand (unsigned int seed); + +int globvar; + +void +leave (int i) +{ + if (i != 0) + abort (); + exit (0); +} + +void +doit () +{ + srand (12); + globvar = rand (); + if (rand () > 0) + globvar = 0; + leave (globvar); +} + +int +main () +{ + doit (); +} |