Fortran: Fix regression caused by r14-10477 [PR59104]
[official-gcc.git] / gcc / testsuite / gcc.dg / guality / pr54519-3.c
blobfabab963d7222263f3721eb678e7a75dd21d9cec
1 /* PR debug/54519 */
2 /* { dg-do run } */
3 /* { dg-options "-g" } */
5 __attribute__((noinline, noclone)) void
6 fn1 (int x)
8 __asm volatile ("" : "+r" (x) : : "memory");
11 static int
12 fn2 (int x, int y, int z)
14 int a = 8;
15 if (x != z)
17 fn1 (x);
18 fn1 (x); /* { dg-final { gdb-test .+2 "x" "36" } } */
19 if (x == 36) /* { dg-final { gdb-test .+1 "y" "25" { xfail { aarch64*-*-* && { any-opts "-flto" } } } } } */
20 fn1 (x); /* { dg-final { gdb-test . "z" "6" { xfail { aarch64*-*-* && { any-opts "-flto" } } } } } */
21 fn1 (x); /* { dg-final { gdb-test .+2 "x" "98" } } */
22 if (x == 98) /* { dg-final { gdb-test .+1 "y" "117" { xfail { aarch64*-*-* && { any-opts "-flto" } } } } } */
23 fn1 (x); /* { dg-final { gdb-test . "z" "8" { xfail { aarch64*-*-* && { any-opts "-flto" } } } } } */
24 fn1 (x);
25 fn1 (x + a);
27 return y;
30 int (*p) (int, int, int) = fn2;
32 int
33 main ()
35 __asm volatile ("" : : : "memory");
36 int (*q) (int, int, int) = p;
37 __asm volatile ("" : : : "memory");
38 q (36, 25, 6);
39 q (98, 117, 8);
40 q (0, 0, 0);
41 return 0;