[Bug fortran/34133] Bind(c): Accepts PROGRAM internal bind(c) procedure

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2007-11-17 18:19 -------
Subject: Bug 34133

Author: burnus
Date: Sat Nov 17 18:19:16 2007
New Revision: 130260

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=130260
Log:
2007-11-17  Tobias Burnus  <[EMAIL PROTECTED]>

        PR fortran/34133
        * decl.c (gfc_match_suffix,gfc_match_subroutine): Disallow
        bind(c) attribute for internal procedures.

2007-11-17  Tobias Burnus  <[EMAIL PROTECTED]>

        PR fortran/34133
        * gfortran.dg/bind_c_usage_9.f03: New.
        * gfortran.dg/interface_abstract_1.f90: Fix testcase.


Added:
    trunk/gcc/testsuite/gfortran.dg/bind_c_usage_9.f03
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/decl.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/interface_abstract_1.f90


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34133