Fortran: fix passing of optional dummy as actual to optional argument [PR55978]
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 961125-1.c
blobbd4bf0eb8ee10a1e1f64c3340dd9adcb23a96a14
1 void abort (void);
2 void exit (int);
4 static char *
5 begfield (int tab, char *ptr, char *lim, int sword, int schar)
7 if (tab)
9 while (ptr < lim && sword--)
11 while (ptr < lim && *ptr != tab)
12 ++ptr;
13 if (ptr < lim)
14 ++ptr;
17 else
19 while (1)
23 if (ptr + schar <= lim)
24 ptr += schar;
26 return ptr;
29 int
30 main (void)
32 char *s = ":ab";
33 char *lim = s + 3;
34 if (begfield (':', s, lim, 1, 1) != s + 2)
35 abort ();
36 exit (0);