diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-01-19 22:47:47 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-01-19 22:47:47 +0000 |
| commit | c613d54045e8d5d0b65a5163af59669d32cd3cf1 (patch) | |
| tree | 52d13c2f030fbf9ecaaf099b8f197b27f9038eb7 /gcc/fortran/iresolve.c | |
| parent | e2bd3e81f541e16f83c5e73f23b0d93ceaf07952 (diff) | |
| download | gcc-c613d54045e8d5d0b65a5163af59669d32cd3cf1.zip gcc-c613d54045e8d5d0b65a5163af59669d32cd3cf1.tar.gz gcc-c613d54045e8d5d0b65a5163af59669d32cd3cf1.tar.bz2 | |
re PR fortran/34817 (mixed-kind "any" and "all" intrinsics with expressions)
2008-01-19 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/34817
PR fortran/34838
* iresolve.c (gfc_resolve_all): Remove conversion of mask
argument to kind=1 by removing call to resolve_mask_arg().
(gfc_resolve_any): Likewise.
2008-01-19 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/34817
PR fortran/34838
* gfortran.dg/any_all_1.f90: New test.
* gfortran.dg/any_all_2.f90: New test.
From-SVN: r131660
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index bdb4054..79b46e2 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -256,8 +256,6 @@ gfc_resolve_all (gfc_expr *f, gfc_expr *mask, gfc_expr *dim) f->shape = gfc_copy_shape_excluding (mask->shape, mask->rank, dim); } - resolve_mask_arg (mask); - f->value.function.name = gfc_get_string (PREFIX ("all_%c%d"), gfc_type_letter (mask->ts.type), mask->ts.kind); @@ -306,8 +304,6 @@ gfc_resolve_any (gfc_expr *f, gfc_expr *mask, gfc_expr *dim) f->shape = gfc_copy_shape_excluding (mask->shape, mask->rank, dim); } - resolve_mask_arg (mask); - f->value.function.name = gfc_get_string (PREFIX ("any_%c%d"), gfc_type_letter (mask->ts.type), mask->ts.kind); |