------- Comment #1 from burnus at gcc dot gnu dot org  2009-08-03 22:34 -------
Mine! -- Patch:

Index: gcc/fortran/module.c
===================================================================
--- gcc/fortran/module.c        (Revision 150376)
+++ gcc/fortran/module.c        (Arbeitskopie)
@@ -1655,3 +1655,3 @@ typedef enum
   AB_IS_BIND_C, AB_IS_C_INTEROP, AB_IS_ISO_C, AB_ABSTRACT, AB_ZERO_COMP,
-  AB_EXTENSION, AB_PROCEDURE, AB_PROC_POINTER
+  AB_EXTENSION, AB_PROCEDURE, AB_PROC_POINTER, AB_EXT_ATTR
 }
@@ -1698,2 +1698,3 @@ static const mstring attr_bits[] =
     minit ("PROC_POINTER", AB_PROC_POINTER),
+    minit ("EXT_ATTR", AB_EXT_ATTR),
     minit (NULL, -1)
@@ -1843,2 +1844,4 @@ mio_symbol_attribute (symbol_attribute *
        MIO_NAME (ab_attribute) (AB_PROC_POINTER, attr_bits);
+      if (attr->ext_attr)
+       MIO_NAME (ab_ext_attr) (AB_EXT_ATTR, attr_bits);

@@ -1969,2 +1972,4 @@ mio_symbol_attribute (symbol_attribute *
              attr->proc_pointer = 1;
+           case AB_EXT_ATTR:
+             attr->ext_attr = 1;
              break;


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |burnus at gcc dot gnu dot
                   |dot org                     |org
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2009-08-03 22:34:06
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40955

Reply via email to