diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-07-02 14:36:58 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-07-02 14:36:58 +0000 |
| commit | 04f2b606255665f14665146c28f6236d6f932dab (patch) | |
| tree | b292619ea2a0ca4884361d167cf56acc48f113a1 /gcc/fortran/iresolve.c | |
| parent | 795a337af630f9b03093c409d722f5cfe3343ddc (diff) | |
| download | gcc-04f2b606255665f14665146c28f6236d6f932dab.zip gcc-04f2b606255665f14665146c28f6236d6f932dab.tar.gz gcc-04f2b606255665f14665146c28f6236d6f932dab.tar.bz2 | |
re PR fortran/36590 (internal error: Can't convert LOGICAL(1) to LOGICAL(1))
2008-07-02 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/36590
PR fortran/36681
* iresolve.c (resolve_mask_arg): Don't convert mask to
kind=1 logical if it is of that type already.
2008-07-02 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/36590
PR fortran/36681
* gfortran.dg/count_mask_1.f90: New test.
From-SVN: r137355
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index a1e7622..64a24e8 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -106,7 +106,7 @@ resolve_mask_arg (gfc_expr *mask) /* In the library, we access the mask with a GFC_LOGICAL_1 argument. No need to waste memory if we are about to create a temporary array. */ - if (mask->expr_type == EXPR_OP) + if (mask->expr_type == EXPR_OP && mask->ts.kind != 1) { ts.type = BT_LOGICAL; ts.kind = 1; |