diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-01-22 20:35:49 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-01-22 20:35:49 +0100 |
| commit | b5ca4fd2f6927b6c2cc9ca3f315980b9cbf45605 (patch) | |
| tree | 3c1b71c8974b8b54b4e6e30b505b01c998567adb /gcc/fortran/interface.c | |
| parent | 841d09e0d0b57a5f8d1afa680757bbc229a52e36 (diff) | |
| download | gcc-b5ca4fd2f6927b6c2cc9ca3f315980b9cbf45605.zip gcc-b5ca4fd2f6927b6c2cc9ca3f315980b9cbf45605.tar.gz gcc-b5ca4fd2f6927b6c2cc9ca3f315980b9cbf45605.tar.bz2 | |
re PR fortran/34848 (internal compiler error with optional argument of character type and array return type)
2008-01-22 Tobias Burnus <burnus@net-b.de>
PR fortran/34848
* interface.c (compare_actual_formal): Fix adding type
to missing_arg_type for absent optional arguments.
2008-01-22 Tobias Burnus <burnus@net-b.de>
PR fortran/34848
* gfortran.dg/missing_optional_dummy_4.f90
From-SVN: r131738
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index ef63984..8b73adc 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -2147,7 +2147,7 @@ compare_actual_formal (gfc_actual_arglist **ap, gfc_formal_arglist *formal, *ap = new[0]; /* Note the types of omitted optional arguments. */ - for (a = actual, f = formal; a; a = a->next, f = f->next) + for (a = *ap, f = formal; a; a = a->next, f = f->next) if (a->expr == NULL && a->label == NULL) a->missing_arg_type = f->sym->ts.type; |