This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/29837] INTERFACE overloading INTENT problem - valid code is rejected
- From: "pault at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 16 Nov 2006 08:01:03 -0000
- Subject: [Bug fortran/29837] INTERFACE overloading INTENT problem - valid code is rejected
- References: <bug-29837-7816@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- 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