Fortran: Fix regression caused by r14-10477 [PR59104]
[official-gcc.git] / gcc / testsuite / gcc.dg / guality / pr37726.c
blob509d2d4c84a6affcb690a63d378e62101b50e23f
1 /* PR debug/37726 */
2 /* { dg-do run } */
3 /* { dg-options "-g" } */
4 /* { dg-skip-if "" { *-*-* } { "*" } { "-O0" } } */
6 int foo (int parm)
8 int var = 0;
9 int bar (void)
11 return parm + var; /* BREAK */
13 parm++; /* BREAK */
14 var++;
15 return bar ();
18 int
19 main (void)
21 return foo (4) - 6;
24 /* { dg-final { gdb-test 11 "parm" "5" } } */
25 /* { dg-final { gdb-test 11 "var" "1" } } */
26 /* { dg-final { gdb-test 13 "parm" "4" } } */
27 /* { dg-final { gdb-test 13 "var" "0" } } */