diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-07-15 10:25:48 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-07-15 10:25:48 +0200 |
| commit | abc2d8074ae190486e3f620075e25498c1b2791c (patch) | |
| tree | af43e59575bb2a233dfe1487ef6186279511baed /gcc/fortran/resolve.c | |
| parent | 895a0c2df3542769fb381f0792cb543da01229ec (diff) | |
| download | gcc-abc2d8074ae190486e3f620075e25498c1b2791c.zip gcc-abc2d8074ae190486e3f620075e25498c1b2791c.tar.gz gcc-abc2d8074ae190486e3f620075e25498c1b2791c.tar.bz2 | |
trans-array.h (gfc_deallocate_alloc_comp_no_caf, [...]): New prototype.
2013-07-15 Tobias Burnus <burnus@net-b.de>
* trans-array.h (gfc_deallocate_alloc_comp_no_caf,
gfc_reassign_alloc_comp_caf): New prototype.
* trans-array.c (enum): Add DEALLOCATE_ALLOC_COMP_NO_CAF
and COPY_ALLOC_COMP_CAF.
(structure_alloc_comps): Handle it.
(gfc_reassign_alloc_comp_caf,
gfc_deallocate_alloc_comp_no_caf): New function.
(gfc_alloc_allocatable_for_assignment): Call it.
* trans-expr.c (gfc_trans_scalar_assign,
gfc_trans_arrayfunc_assign, gfc_trans_assignment_1): Ditto.
* parse.c (parse_derived): Correctly set coarray_comp.
* resolve.c (resolve_symbol): Improve error wording.
2013-07-15 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/coarray_lib_realloc_1.f90: New.
* gfortran.dg/coarray/lib_realloc_1.f90: New.
* gfortran.dg/coarray_6.f90: Add dg-error.
From-SVN: r200955
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index ce68401..08e197b 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -13125,8 +13125,8 @@ resolve_symbol (gfc_symbol *sym) && (class_attr.codimension || class_attr.pointer || class_attr.dimension || class_attr.allocatable)) { - gfc_error ("Variable '%s' at %L with coarray component " - "shall be a nonpointer, nonallocatable scalar", + gfc_error ("Variable '%s' at %L with coarray component shall be a " + "nonpointer, nonallocatable scalar, which is not a coarray", sym->name, &sym->declared_at); return; } |