[Bug fortran/42650] F90: DT function with in-line DT definition and RESULT is rejected

[burnus at gcc dot gnu dot org]

------- Comment #3 from burnus at gcc dot gnu dot org  2010-02-01 22:46 -------
Patch:

Index: gcc/fortran/parse.c
===================================================================
--- gcc/fortran/parse.c   (Revision 156433)
+++ gcc/fortran/parse.c
@@ -111,7 +111,7 @@ decode_specification_statement (void)
   match ("import", gfc_match_import, ST_IMPORT);
   match ("use", gfc_match_use, ST_USE);

-  if (gfc_current_block ()->ts.type != BT_DERIVED)
+  if (gfc_current_block ()->result->ts.type != BT_DERIVED)
     goto end_of_block;

   match (NULL, gfc_match_st_function, ST_STATEMENT_FUNCTION);


-- 

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|NEW                         |ASSIGNED
   Last reconfirmed|2010-01-08 05:47:58         |2010-02-01 22:46:13
               date|                            |


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