PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / pr63914.c
bloba6b21686421cef2164d9649f8de387da6da91bd1
1 /* { dg-do compile } */
2 /* { dg-options "-O2 -ffast-math" } */
3 /* { dg-prune-output "non-standard ABI extension" } */
4 /* { dg-additional-options "-fno-common" { target hppa*-*-hpux* } } */
6 typedef float __m128 __attribute__ ((__vector_size__ (16)));
7 __m128 a, d, e;
8 int b;
9 struct dt_interpolation c;
10 __m128
11 fn1 (float p1)
13 return (__attribute__ ((__vector_size__ (4 * sizeof 0))) float){ p1 };
15 __m128
16 fn2 (float p1)
18 return fn1 (p1);
20 struct dt_interpolation
22 int width;
24 void
25 fn3 (struct dt_interpolation *p1, int *p2)
27 int i = 0, n = 0;
28 while (i < 2 * p1->width)
29 n = i++;
30 *p2 = n;
32 void
33 fn4 ()
35 __m128 f;
36 fn3 (&c, &b);
37 __m128 g = fn2 (1.f / b);
38 e = (__m128){};
39 __m128 h = e;
40 for (int i = 0; i < 2 * c.width; i++)
42 for (; c.width;)
43 f = a;
44 h = f;
46 d = h * g;