Fortran: Fix regression caused by r14-10477 [PR59104]
[official-gcc.git] / gcc / testsuite / gcc.dg / guality / pr45003-2.c
blob76cf7615e432bb2ae95431e5f49a104d78689241
1 /* PR debug/45003 */
2 /* { dg-do run { target { { i?86-*-* x86_64-*-* } && lp64 } } } */
3 /* { dg-options "-g" } */
5 int __attribute__((noinline))
6 foo (unsigned short *p)
8 int a = *p;
9 asm volatile ("nop" : : "D" ((int) *p));
10 asm volatile ("nop" : : "D" ((int) *p)); /* { dg-final { gdb-test . "a" "0x8078" } } */
11 return 0;
14 int __attribute__((noinline))
15 bar (short *p)
17 unsigned int a = *p;
18 asm volatile ("nop" : : "D" ((unsigned int) *p));
19 asm volatile ("nop" : : "D" ((unsigned int) *p)); /* { dg-final { gdb-test . "a" "0xffff8078" } } */
20 return 0;
23 int
24 main ()
26 unsigned short us = 0x8078;
27 foo (&us);
28 short s = -32648;
29 bar (&s);
30 return 0;