OSDN Git Service

2008-07-28 Richard Guenther <rguenther@suse.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.dg / debug / 20020220-1.c
1 /* PR debug/4461
2    This testcase failed to link in Dwarf-2 because
3    constant -4.0 in constant pool was never referenced by anything
4    but Dwarf-2 location descriptor.  */
5 /* { dg-do run } */
6
7 void __attribute__((noinline))
8 foo (const char *x __attribute__((unused)),
9      __complex__ long double y __attribute__((unused)),
10      __complex__ long double z __attribute__((unused)))
11 {
12 }
13
14 void
15 bar (void)
16 {
17   foo ("",
18        __builtin_conjl (({ __complex__ long double r;
19                            __real__ r = 3.0;
20                            __imag__ r = -4.0;
21                            r; })),
22        ({ __complex__ long double s;
23           __real__ s = 3.0;
24           __imag__ s = 4.0;
25           s; }));
26 }
27
28 int main (void)
29 {
30   return 0;
31 }