[Bug fortran/38252] Empty function with CONTAINS triggers Internal Error

[mikael at gcc dot gnu dot org]

------- Comment #1 from mikael at gcc dot gnu dot org  2008-11-24 22:52 -------
confirm

quickfix:
Index: parse.c
===================================================================
--- parse.c     (révision 142172)
+++ parse.c     (copie de travail)
@@ -2323,7 +2323,7 @@ parse_spec (gfc_statement st)
       gfc_symbol* proc = gfc_current_ns->proc_name;
       gcc_assert (proc);

-      if (proc->result->ts.type == BT_UNKNOWN)
+      if (proc->result->ts.type != BT_UNKNOWN)
        function_result_typed = true;
     }

@@ -2333,7 +2333,7 @@ loop:
      (and thus we can expect to see none any further), type the function
result
      if it has not yet been typed.  Be careful not to give the END statement
      to verify_st_order!  */
-  if (!function_result_typed && st != ST_GET_FCN_CHARACTERISTICS)
+  if (!function_result_typed && st == ST_GET_FCN_CHARACTERISTICS)
     {
       bool verify_now = false;


I'm probably missing something


-- 

mikael at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2008-11-24 22:52:46
               date|                            |


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