Fix ChangeLog, fix parentheses from previous patch to trans-intrinsic.c
From-SVN: r83128
This commit is contained in:
parent
7031baf4de
commit
f51d8522f7
|
@ -1,4 +1,4 @@
|
|||
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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue