OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

From-SVN: r83128
This commit is contained in:
Tobias Schlüter 2004-06-14 21:25:33 +02:00 committed by Tobias Schlüter
parent 7031baf4de
commit f51d8522f7
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/fortran/ChangeLog
View File

@ -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 PR fortran/15211
* trans-intrinsic.c (gfc_conv_intrinsic_len): Deal with arrays * trans-intrinsic.c (gfc_conv_intrinsic_len): Deal with arrays

5
gcc/fortran/trans-intrinsic.c
View File

@ -1874,8 +1874,9 @@ gfc_conv_intrinsic_len (gfc_se * se, gfc_expr * expr)
break; break;
default: default:
if (arg->expr_type == EXPR_VARIABLE && arg->ref == NULL if (arg->expr_type == EXPR_VARIABLE
|| (arg->ref->next == NULL && arg->ref->type == REF_ARRAY)) && (arg->ref == NULL || (arg->ref->next == NULL
&& arg->ref->type == REF_ARRAY)))
{ {
/* This doesn't catch all cases. /* This doesn't catch all cases.
See http://gcc.gnu.org/ml/fortran/2004-06/msg00165.html See http://gcc.gnu.org/ml/fortran/2004-06/msg00165.html