[Fortran-Experiments]: patch

[Tobias Burnus]

Hi,

Steve Kargl wrote:
> A quick scan of the patch and your testing suggest that the
> patch is OK to commit.
>   
Thanks. Committed as r122336.
Note: This does not include my patch. If everyone thinks it the right
approach, I'll commit it as well.

Tobias


2007-02-26  Tobias Burnus  <burnus@net-b.de>

    * fortran/symbol.c (check_conflict): Allow bind(c) for procedural dummy
    arguments.

Index: gcc/fortran/symbol.c
===================================================================
*** gcc/fortran/symbol.c        (revision 122336)
--- gcc/fortran/symbol.c        (working copy)
*************** check_conflict (symbol_attribute * attr,
*** 403,409 ****

    conf (function, subroutine);

!   conf (is_bind_c, dummy);
    conf (is_bind_c, cray_pointer);
    conf (is_bind_c, cray_pointee);
    conf (is_bind_c, allocatable);
--- 403,411 ----

    conf (function, subroutine);

!   if (!function && !subroutine)
!     conf (is_bind_c, dummy);
!
    conf (is_bind_c, cray_pointer);
    conf (is_bind_c, cray_pointee);
    conf (is_bind_c, allocatable);