Fortran: Fix regression caused by r14-10477 [PR59104]
[official-gcc.git] / gcc / testsuite / gcc.dg / guality / pr89528.c
blob04a7e84d8755540eb91a747d0cf132f4cf7b988e
1 /* PR debug/89528 */
2 /* { dg-do run } */
3 /* { dg-options "-g" } */
5 #include <stdio.h>
7 char b;
8 int d, e;
9 static int i = 1;
10 void a(int l) { printf("", l); }
11 char c(char l) { return l || b && l == 1 ? b : b % l; }
12 short f(int l, int m) { return l * m; }
13 short g(short l, short m) { return m || l == 767 && m == 1; }
14 int h(int l, int m) { return (l ^ m & l ^ (m & 647) - m ^ m) < m; }
15 static int j(int l) { return d == 0 || l == 647 && d == 1 ? l : l % d; }
16 short k(int l) { return l >= 2 >> l; }
17 void optimize_me_not() { asm(""); }
18 static short n(void) {
19 int l_1127 = ~j(9 || 0) ^ 65535;
20 optimize_me_not(); /* { dg-final { gdb-test . "l_1127+1" "-65534" } } */
21 f(l_1127, i && e ^ 4) && g(0, 0);
22 e = 0;
23 return 5;
25 int main() { n(); }