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

Correction partielle coindexed_1.f90

This commit is contained in:
Mikael Morin 2025-10-12 17:51:30 +02:00
parent c94031aef4
commit bdab6e4afd
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/trans-types.cc
View File

@ -2425,7 +2425,11 @@ contiguous_attr (const symbol_attribute & attr)
static bool static bool
is_contiguous (gfc_symbol *sym) is_contiguous (gfc_symbol *sym)
{ {
if (contiguous_attr (gfc_symbol_attr (sym))) symbol_attribute sym_attr = gfc_symbol_attr (sym);
if (sym_attr.pointer)
return false;
if (contiguous_attr (sym_attr))
return true; return true;
if (!(sym->assoc if (!(sym->assoc