Fortran: fix passing of optional dummy as actual to optional argument [PR55978]
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 950710-1.c
blob2a641a01fe4751123028477d3305959cd8ff264f
1 void abort (void);
2 void exit (int);
4 struct twelve
6 int a;
7 int b;
8 int c;
9 };
11 struct pair
13 int first;
14 int second;
17 struct pair
18 g ()
20 struct pair p;
21 return p;
24 static void
25 f ()
27 int i;
28 for (i = 0; i < 1; i++)
30 int j;
31 for (j = 0; j < 1; j++)
33 if (0)
35 int k;
36 for (k = 0; k < 1; k++)
38 struct pair e = g ();
41 else
43 struct twelve a, b;
44 if ((((char *) &b - (char *) &a) < 0
45 ? (-((char *) &b - (char *) &a))
46 : ((char *) &b - (char *) &a)) < sizeof (a))
47 abort ();
53 int
54 main (void)
56 f ();
57 exit (0);