diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-11-30 13:16:35 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-11-30 13:16:35 +0100 |
| commit | 1eabf70a84050fcc178cd06fb11391c242f09a28 (patch) | |
| tree | d4f2c1d1ab74a0ce0f88e31dc99507d1e23dfbd5 /gcc/fortran/match.h | |
| parent | e6ef7325b82cf4fd0fd431deada1b37e29542230 (diff) | |
| download | gcc-1eabf70a84050fcc178cd06fb11391c242f09a28.tar.gz | |
re PR fortran/34133 (Bind(c,name="") should be rejected for dummies; F2008: allow bind(c) for internal procs)
2007-11-20 Tobias Burnus <burnus@net-b.de>
PR fortran/34133
* match.h: Add bool allow_binding_name to gfc_match_bind_c.
* decl.c
* (match_attr_spec,gfc_match_bind_c_stmt,gfc_match_entry):
Adjust accordingly.
(gfc_match_bind_c): Add allow_binding_name argument, reject
binding name for dummy arguments.
(gfc_match_suffix,gfc_match_subroutine): Make use of
allow_binding_name.
2007-11-20 Tobias Burnus <burnus@net-b.de>
PR fortran/34133
* gfortran.dg/bind_c_usage_9.f03: Fixes; add -std=f2003.
* gfortran.dg/bind_c_usage_11.f03: New.
* gfortran.dg/bind_c_usage_12.f03: New.
From-SVN: r130535
Diffstat (limited to 'gcc/fortran/match.h')
| -rw-r--r-- | gcc/fortran/match.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/match.h b/gcc/fortran/match.h index f9d6aea7010..5c4053cc7ec 100644 --- a/gcc/fortran/match.h +++ b/gcc/fortran/match.h @@ -175,7 +175,7 @@ try set_verify_bind_c_com_block (gfc_common_head *, int); try get_bind_c_idents (void); match gfc_match_bind_c_stmt (void); match gfc_match_suffix (gfc_symbol *, gfc_symbol **); -match gfc_match_bind_c (gfc_symbol *); +match gfc_match_bind_c (gfc_symbol *, bool); match gfc_get_type_attr_spec (symbol_attribute *); /* primary.c. */ |