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