[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Correction regression allocatable attribute

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:9853930e77ff40078af79cdc349ed79d531749f4

commit 9853930e77ff40078af79cdc349ed79d531749f4
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Dec 9 17:53:58 2024 +0100

    Correction regression allocatable attribute

Diff:
---
 gcc/fortran/primary.cc | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/gcc/fortran/primary.cc b/gcc/fortran/primary.cc
index cbc1eafdf768..a92d42e130ac 100644
--- a/gcc/fortran/primary.cc
+++ b/gcc/fortran/primary.cc
@@ -2914,7 +2914,6 @@ gfc_symbol_attr (gfc_symbol *sym)
   attr.pointer = pointer;
   attr.allocatable = allocatable;
   attr.target = target;
-  attr.save = sym->attr.save;
 
   return attr;
 }
@@ -2955,8 +2954,6 @@ gfc_variable_attr (gfc_expr *expr, gfc_typespec *ts)
   sym = expr->symtree->n.sym;
   attr = gfc_symbol_attr (sym);
 
-  attr = sym->attr;
-
   optional = attr.optional;
   dimension = attr.dimension;
   codimension = attr.codimension;