------- 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
