diff options
| author | Tobias Burnus <burnus@net-b.de> | 2014-04-30 21:08:19 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-04-30 21:08:19 +0200 |
| commit | 2c060879af5a92b49c11e70004fcd377f6a5a3ea (patch) | |
| tree | 1cfe03d3d0de012ae2a9dd9f1dde82089539a137 /gcc/fortran/resolve.c | |
| parent | a8a5f4a9721cba832bf734c4be40d4a3f523d031 (diff) | |
| download | gcc-2c060879af5a92b49c11e70004fcd377f6a5a3ea.zip gcc-2c060879af5a92b49c11e70004fcd377f6a5a3ea.tar.gz gcc-2c060879af5a92b49c11e70004fcd377f6a5a3ea.tar.bz2 | |
resolve.c (resolve_function): Don't do assumed-size check for lcobound/ucobound.
2014-04-30 Tobias Burnus <burnus@net-b.de>
* resolve.c (resolve_function): Don't do
assumed-size check for lcobound/ucobound.
* trans-types.c (gfc_build_array_type): Only build an array
descriptor with codimensions for allocatable coarrays.
2014-04-30 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/coarray_lib_this_image_2.f90: Update dump.
* gfortran.dg/coarray_lib_token_4.f90: Ditto.
* gfortran.dg/coarray/codimension.f90: New.
From-SVN: r209952
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 38755fe..15c9463 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -2942,6 +2942,8 @@ resolve_function (gfc_expr *expr) else if (expr->value.function.actual != NULL && expr->value.function.isym != NULL && GENERIC_ID != GFC_ISYM_LBOUND + && GENERIC_ID != GFC_ISYM_LCOBOUND + && GENERIC_ID != GFC_ISYM_UCOBOUND && GENERIC_ID != GFC_ISYM_LEN && GENERIC_ID != GFC_ISYM_LOC && GENERIC_ID != GFC_ISYM_C_LOC |