Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gcc.dg/20031216-1.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
rev | line source |
---|---|
111 | 1 /* This used to abort due to a loop bug on s390*. */ |
2 | |
3 /* { dg-do run } */ | |
4 /* { dg-options "-O2" } */ | |
5 /* { dg-options "-O2 -fPIC" { target s390*-*-* } } */ | |
6 | |
7 extern void abort (void); | |
8 | |
9 int count = 0; | |
10 char *str; | |
11 | |
12 void test (int flag) | |
13 { | |
14 char *p; | |
15 | |
16 for (;;) | |
17 { | |
18 if (count > 5) | |
19 return; | |
20 | |
21 p = "test"; | |
22 | |
23 if (flag) | |
24 count++; | |
25 | |
26 str = p; | |
27 } | |
28 } | |
29 | |
30 int main (void) | |
31 { | |
32 test (1); | |
33 | |
34 if (str[0] != 't') | |
35 abort (); | |
36 | |
37 return 0; | |
38 } | |
39 |