This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/41937] [OOP] Error in allocating derived type allocatable components



------- Comment #2 from burnus at gcc dot gnu dot org  2009-11-04 14:33 -------
Confirmed. The following - untested - should fix it. I am not sure, when I have
time to submit it. Janus, if you want to do the honour, go ahead.

Index: resolve.c
===================================================================
--- resolve.c   (revision 153896)
+++ resolve.c   (working copy)
@@ -6198,7 +6198,8 @@ check_symbols:
          sym = a->expr->symtree->n.sym;

          /* TODO - check derived type components.  */
-         if (sym->ts.type == BT_DERIVED)
+         if (sym->ts.type == BT_DERIVED
+             || sym->ts.type == BT_CLASS)
            continue;

          if ((ar->start[i] != NULL


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
  GCC build triplet|i686-pc-linux-gnu           |
   GCC host triplet|i686-pc-linux-gnu           |
 GCC target triplet|i686-pc-linux-gnu           |
           Keywords|                            |rejects-valid
   Last reconfirmed|0000-00-00 00:00:00         |2009-11-04 14:33:01
               date|                            |
            Summary|Error in allocating derived |[OOP] Error in allocating
                   |type allocatable components |derived type allocatable
                   |                            |components


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]