Fortran: fix passing of optional dummy as actual to optional argument [PR55978]
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 931002-1.c
blobce5027b322c79fec6c1f31d26ef251e16916af88
1 /* { dg-require-effective-target trampolines } */
3 void exit (int);
5 void
6 f (void (*func) ())
8 func ();
11 int
12 main (void)
14 void t0 ()
18 void t1 ()
20 f (t0);
23 void t2 ()
25 t1 ();
28 t1 ();
29 t1 ();
30 t2 ();
32 exit (0);