Fortran: Fix regression caused by r14-10477 [PR59104]
[official-gcc.git] / gcc / testsuite / gcc.dg / guality / pr45003-3.c
blobe9a8c865b3560f7e366161fd12bd79df7e82e2c0
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 = (short) *p;
9 asm volatile ("nop" : : "D" ((int) *p));
10 asm volatile ("nop" : : "D" ((int) *p)); /* { dg-final { gdb-test . "a" "-32648" } } */
11 return 0;
14 int __attribute__((noinline))
15 bar (short *p)
17 unsigned int a = (unsigned short) *p;
18 asm volatile ("nop" : : "D" ((unsigned int) *p));
19 asm volatile ("nop" : : "D" ((unsigned int) *p)); /* { dg-final { gdb-test . "a" "0x8078" } } */
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;