Fortran: fix passing of optional dummy as actual to optional argument [PR55978]

[official-gcc.git] / gcc / testsuite / gcc.c-torture / compile / 921116-2.c

/* { dg-additional-options "-std=gnu89" } */

typedef struct {
 long l[5];
} t;

f(size)
{
 t event;
 g(&(event.l[2 + size]), (3 - size) * 4);
}