diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2014-01-12 12:08:31 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2014-01-12 12:08:31 +0100 |
| commit | a1b80ec7e0e9cea1107b77bdd1424ab853cda5c7 (patch) | |
| tree | df081583aa6531c6dfbbe8da353b1070028d5864 /gcc | |
| parent | 915afe449440134666fb1b6f4465588f878aadf6 (diff) | |
| download | gcc-a1b80ec7e0e9cea1107b77bdd1424ab853cda5c7.zip gcc-a1b80ec7e0e9cea1107b77bdd1424ab853cda5c7.tar.gz gcc-a1b80ec7e0e9cea1107b77bdd1424ab853cda5c7.tar.bz2 | |
re PR fortran/58026 ([F03] Bad error recovery for allocatable component of undeclared type)
2014-01-12 Janus Weil <janus@gcc.gnu.org>
PR fortran/58026
* decl.c (gfc_match_data_decl): Improve error recovery.
2014-01-12 Janus Weil <janus@gcc.gnu.org>
PR fortran/58026
* gfortran.dg/alloc_comp_basics_6.f90: New.
From-SVN: r206564
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 10 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/alloc_comp_basics_6.f90 | 11 |
4 files changed, 25 insertions, 6 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index bb8c04c..f2f1a85 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2014-01-12 Janus Weil <janus@gcc.gnu.org> + + PR fortran/58026 + * decl.c (gfc_match_data_decl): Improve error recovery. + 2014-01-09 Tobias Burnus <burnus@net-b.de> * cpp.c (gfc_cpp_handle_option): Add missing break. diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index e8ac941..8831b19 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -4287,12 +4287,10 @@ gfc_match_data_decl (void) || current_ts.u.derived->attr.zero_comp)) goto ok; - /* Now we have an error, which we signal, and then fix up - because the knock-on is plain and simple confusing. */ - gfc_error_now ("Derived type at %C has not been previously defined " - "and so cannot appear in a derived type definition"); - current_attr.pointer = 1; - goto ok; + gfc_error ("Derived type at %C has not been previously defined " + "and so cannot appear in a derived type definition"); + m = MATCH_ERROR; + goto cleanup; } ok: diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 3f33d76..9d82746 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2014-01-12 Janus Weil <janus@gcc.gnu.org> + + PR fortran/58026 + * gfortran.dg/alloc_comp_basics_6.f90: New. + 2014-01-11 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/59700 diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_basics_6.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_basics_6.f90 new file mode 100644 index 0000000..3ed221d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/alloc_comp_basics_6.f90 @@ -0,0 +1,11 @@ +! { dg-do compile } +! +! PR 58026: Bad error recovery for allocatable component of undeclared type +! +! Contributed by Joost VandeVondele <Joost.VandeVondele@mat.ethz.ch> + + type sysmtx_t + type(ext_complex_t), allocatable :: S(:) ! { dg-error "has not been previously defined" } + end type + +end |