Skip to content

R
riscv-gcc-1
Commit f51d8522 by Tobias Schlüter Committed by Tobias Schlüter
Options

Fix ChangeLog, fix parentheses from previous patch to trans-intrinsic.c 

From-SVN: r83128
parent 7031baf4
Showing with 4 additions and 3 deletions
gcc/fortran/ChangeLog
2004-05-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
2004-06-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/15211
* trans-intrinsic.c (gfc_conv_intrinsic_len): Deal with arrays
......
gcc/fortran/trans-intrinsic.c
......@@ -1874,8 +1874,9 @@ gfc_conv_intrinsic_len (gfc_se * se, gfc_expr * expr)
break;
default:
if (arg->expr_type == EXPR_VARIABLE && arg->ref == NULL
|| (arg->ref->next == NULL && arg->ref->type == REF_ARRAY))
if (arg->expr_type == EXPR_VARIABLE
&& (arg->ref == NULL || (arg->ref->next == NULL
&& arg->ref->type == REF_ARRAY)))
{
/* This doesn't catch all cases.
See http://gcc.gnu.org/ml/fortran/2004-06/msg00165.html
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment