Fortran: Fix Explicit cobounds of a procedures parameter not respected [PR78466]
[official-gcc.git] / gcc / testsuite / gcc.dg / pr85859.c
blob7a57a09682cdbf496c11f9d33cd902c21f19cbed
1 /* { dg-do run } */
2 /* { dg-options "-ftree-tail-merge -Wno-div-by-zero -O2 -fno-dce -fno-isolate-erroneous-paths-dereference -fno-tree-dce -fno-tree-vrp" } */
3 /* { dg-require-effective-target ptr_eq_long } */
5 int b, c, d, e;
7 __attribute__ ((noinline, noclone))
8 int foo (short f)
10 f %= 0;
11 return f;
14 int
15 main (void)
17 b = (unsigned char) __builtin_parity (d);
18 e ? foo (0) : (__INTPTR_TYPE__) &c;
19 return 0;