* testsuite/libgomp.fortran/vla7.f90: Add -w to options.
[official-gcc.git] / gcc / testsuite / gcc.dg / ultrasp3.c
blob4458658a58ecc219b3c5f81658cffd423e356279
1 /* { dg-options "" } */
2 /* { dg-options "-mcpu=ultrasparc -mv8plus" { target sparc-*-* } } */
4 extern void abort (void);
5 extern void exit (int);
7 unsigned long long foo (unsigned long long x)
9 return 0x73500000735LL * x;
12 unsigned long long a, b;
13 unsigned long p;
15 unsigned long long bar (void)
17 unsigned long long c = a | b;
18 return 0x73500000735LL * c;
21 unsigned long long baz (void)
23 unsigned long long c = (p + 345) & -2;
24 return c * a;
27 main ()
29 if (foo (0x56789LL) != 0x26f32e5d26f32e5dLL)
30 abort ();
31 a = 0x8000000080000000LL;
32 b = 0x0000000180000001LL;
33 if (bar () != 0x120480000735LL)
34 abort ();
35 p = 0xffffffff;
36 if (baz () != 0xac00000000LL)
37 abort ();
38 exit (0);