diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-05-27 23:29:19 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-05-27 23:29:19 +0200 |
| commit | 5aacb11e06658a9d38b9810db0d9587c64271122 (patch) | |
| tree | 22ef55bff748e9924fba15d6b5baabb76acb616d /gcc/fortran/resolve.c | |
| parent | fc64b4481d6085c4f4fd260b5801d0785c8a7a02 (diff) | |
| download | gcc-5aacb11e06658a9d38b9810db0d9587c64271122.zip gcc-5aacb11e06658a9d38b9810db0d9587c64271122.tar.gz gcc-5aacb11e06658a9d38b9810db0d9587c64271122.tar.bz2 | |
re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays])
2011-05-27 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* check.c (gfc_check_associated, gfc_check_null): Add coindexed
* check.
* match.c (gfc_match_nullify): Ditto.
* resolve.c (resolve_deallocate_expr): Ditto.
* trans-types.c (gfc_get_nodesc_array_type): Don't set
* restricted
for nonpointers.
2011-05-27 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* gfortran.dg/coarray_22.f90: New.
From-SVN: r174364
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 3483bc7..4b18529 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -6494,6 +6494,13 @@ resolve_deallocate_expr (gfc_expr *e) return FAILURE; } + /* F2008, C644. */ + if (gfc_is_coindexed (e)) + { + gfc_error ("Coindexed allocatable object at %L", &e->where); + return FAILURE; + } + if (pointer && gfc_check_vardef_context (e, true, _("DEALLOCATE object")) == FAILURE) return FAILURE; |