------- Comment #4 from pault at gcc dot gnu dot org 2006-11-16 08:01 ------- This is due to a trivial error in:
Index: /svn/trunk/gcc/fortran/interface.c =================================================================== *** /svn/trunk/gcc/fortran/interface.c (revision 118704) --- /svn/trunk/gcc/fortran/interface.c (working copy) *************** compare_actual_formal (gfc_actual_arglis *** 1379,1386 **** && (f->sym->attr.intent == INTENT_OUT || f->sym->attr.intent == INTENT_INOUT)) { ! gfc_error ("Actual argument at %L must be definable to " ! "match dummy INTENT = OUT/INOUT", &a->expr->where); return 0; } --- 1383,1391 ---- && (f->sym->attr.intent == INTENT_OUT || f->sym->attr.intent == INTENT_INOUT)) { ! if (where) ! gfc_error ("Actual argument at %L must be definable to " ! "match dummy INTENT = OUT/INOUT", &a->expr->where); return 0; } I will submit the patch and a testcase just as soon as I have a moment this afternoon. Paul -- pault at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- AssignedTo|unassigned at gcc dot gnu |pault at gcc dot gnu dot org |dot org | Status|UNCONFIRMED |ASSIGNED Ever Confirmed|0 |1 Last reconfirmed|0000-00-00 00:00:00 |2006-11-16 08:01:03 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29837