[Patch, fortran] PR25098 and PR25147 - Variables as actual argument for procedure formal arguments

[Paul Thomas]

:ADDPATCH fortran:

Further to the previous mail about the revised patch for PR25098, 
http://gcc.gnu.org/ml/fortran/2006-05/msg00471.html ,I noticed that 
PR25147 was fixed, as well.  However, in preparing a testcase, I 
generated another bug, in which an external procedure would be flagged 
for a type/rank mismatch, when the formal argument had an explicit 
interface.  The required patch is a trivial addition to 
interface.c(compare_parameter).

The combined patch is attached.  The second testcase verifies that 
PR25147 is indeed fixed and that the external procedure does not 
generate an error.

Regtested on FC5/Athlon1700.  OK for trunk and 4.1?

Paul

2006-05-28  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/25098
    PR fortran/25147
    * interface.c (compare_parameter): Return 1 if the actual arg
    is external and the formal is a procedure.
    (compare_actual_formal): If the actual argument is a variable
    and the formal a procedure, this an error.  If a gsymbol exists
    for a procedure of the same name, this is not yet resolved and
    the error is cleared.

2006-05-28  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/25098
    * gfortran.dg/dummy_procedure_1.f90: New test.

    PR fortran/25147
    * gfortran.dg/dummy_procedure_2.f90: New test.


-------------- next part --------------
A non-text attachment was scrubbed...
Name: submit.diff
Type: text/x-patch
Size: 4415 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20060528/e46120f2/attachment.bin>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: Change.Logs
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20060528/e46120f2/attachment.ksh>