diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2009-12-10 16:03:40 -0500 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2009-12-10 16:03:40 -0500 |
| commit | b94e5176d7e1ed624db4678244e421248421392d (patch) | |
| tree | 5722d6834512dd86afc9564c3c0eb19b260aa731 /gcc/fortran/parse.c | |
| parent | 47cb0d7da16c57888fdc04437530d86f33ee3c1b (diff) | |
| download | gcc-b94e5176d7e1ed624db4678244e421248421392d.zip gcc-b94e5176d7e1ed624db4678244e421248421392d.tar.gz gcc-b94e5176d7e1ed624db4678244e421248421392d.tar.bz2 | |
re PR fortran/41369 (Empty derived-type wrongly rejected as function return type)
2009-12-10 Daniel Franke <franke.daniel@gmail.com>
PR fortran/41369
* parse.c (match_deferred_characteristics): Removed check for empty
types in function return values.
2009-12-10 Daniel Franke <franke.daniel@gmail.com>
PR fortran/41369
* gfortran.dg/func_derived_5.f90: New.
From-SVN: r155141
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index c5d3548..98d684f 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -2340,7 +2340,7 @@ match_deferred_characteristics (gfc_typespec * ts) { ts->kind = 0; - if (!ts->u.derived || !ts->u.derived->components) + if (!ts->u.derived) m = MATCH_ERROR; } |