git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Correction régression dependency_49.f90

This commit is contained in:
Mikael Morin 2025-10-16 10:46:11 +02:00
parent 3ef8924ea0
commit 9a7fd0bcf8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/frontend-passes.cc
View File

@ -801,6 +801,7 @@ create_var (gfc_expr * e, const char *vname)
allocatable. */ allocatable. */
symbol->as->type = AS_DEFERRED; symbol->as->type = AS_DEFERRED;
symbol->attr.allocatable = 1; symbol->attr.allocatable = 1;
symbol->ts.deferred = true;
} }
else else
{ {
@ -823,7 +824,7 @@ create_var (gfc_expr * e, const char *vname)
} }
} }
deferred = 0; deferred = false;
if (e->ts.type == BT_CHARACTER) if (e->ts.type == BT_CHARACTER)
{ {
gfc_expr *length; gfc_expr *length;
@ -840,11 +841,11 @@ create_var (gfc_expr * e, const char *vname)
{ {
symbol->attr.allocatable = 1; symbol->attr.allocatable = 1;
symbol->ts.u.cl->length = NULL; symbol->ts.u.cl->length = NULL;
symbol->ts.deferred = 1;
deferred = 1; deferred = 1;
} }
} }
symbol->ts.deferred = deferred;
symbol->attr.flavor = FL_VARIABLE; symbol->attr.flavor = FL_VARIABLE;
symbol->attr.referenced = 1; symbol->attr.referenced = 1;
symbol->attr.dimension = e->rank > 0; symbol->attr.dimension = e->rank > 0;