From: Paul Brook <paul@codesourcery.com>
Date: Thu, 19 Aug 2004 21:37:58 +0000 (+0000)
Subject: re PR fortran/17091 (gfortran MAIN__ symbol not marked TREE_PUBLIC)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bbef13dc2b76a371788b20ba1f0697738e21d9c0;p=gcc.git

re PR fortran/17091 (gfortran MAIN__ symbol not marked TREE_PUBLIC)

	PR fortran/17091
	* gfortran.h (gfc_access): Give ACCESS_UNKNOWN value 0.
	* symbol.c (gfc_clear_attr): Use memset.

From-SVN: r86279
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 29f672137ef..2ed6de14e4a 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2004-08-19  Paul Brook  <paul@codesourcery.com>
+
+	PR fortran/17091
+	* gfortran.h (gfc_access): Give ACCESS_UNKNOWN value 0.
+	* symbol.c (gfc_clear_attr): Use memset.
+
 2004-08-19  Paul Brook  <paul@codesourcery.com>
 
 	PR fortran/14976
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index 2839b4a995e..697f662bc1a 100644
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -243,7 +243,7 @@ sym_intent;
 
 /* Access types.  */
 typedef enum
-{ ACCESS_PUBLIC = 1, ACCESS_PRIVATE, ACCESS_UNKNOWN
+{ ACCESS_UNKNOWN = 0, ACCESS_PUBLIC, ACCESS_PRIVATE, 
 }
 gfc_access;
 
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index c1258655774..7e24d4e1c8e 100644
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -1010,37 +1010,7 @@ gfc_add_type (gfc_symbol * sym, gfc_typespec * ts, locus * where)
 void
 gfc_clear_attr (symbol_attribute * attr)
 {
-
-  attr->allocatable = 0;
-  attr->dimension = 0;
-  attr->external = 0;
-  attr->intrinsic = 0;
-  attr->optional = 0;
-  attr->pointer = 0;
-  attr->save = 0;
-  attr->target = 0;
-  attr->dummy = 0;
-  attr->result = 0;
-  attr->entry = 0;
-  attr->data = 0;
-  attr->use_assoc = 0;
-  attr->in_namelist = 0;
-
-  attr->in_common = 0;
-  attr->function = 0;
-  attr->subroutine = 0;
-  attr->generic = 0;
-  attr->implicit_type = 0;
-  attr->sequence = 0;
-  attr->elemental = 0;
-  attr->pure = 0;
-  attr->recursive = 0;
-
-  attr->access = ACCESS_UNKNOWN;
-  attr->intent = INTENT_UNKNOWN;
-  attr->flavor = FL_UNKNOWN;
-  attr->proc = PROC_UNKNOWN;
-  attr->if_source = IFSRC_UNKNOWN;
+  memset (attr, 0, sizeof(symbol_attribute));
 }