diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-11-24 01:11:38 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-11-24 01:11:38 +0100 |
| commit | c5b5a17a923b67f3e3e4bbcef670b0b3d86198ab (patch) | |
| tree | 93be568b96cbaa37715a85069eaaaf735c5843a8 /gcc/fortran/module.c | |
| parent | 88df9da15894541d19330b2f2d6cd301ce4f4cbf (diff) | |
| download | gcc-c5b5a17a923b67f3e3e4bbcef670b0b3d86198ab.zip gcc-c5b5a17a923b67f3e3e4bbcef670b0b3d86198ab.tar.gz gcc-c5b5a17a923b67f3e3e4bbcef670b0b3d86198ab.tar.bz2 | |
re PR fortran/34187 (BIND(C): Public generic with private bind(c) specific does not use bind(C) name)
2007-11-23 Tobias Burnus <burnus@net-b.de>
PR fortran/34187
* module.c (load_needed): Ensure binding_label is not lost.
* decl.c (set_binding_label,gfc_match_bind_c): Replace
strncpy by strcpy.
2007-11-23 Tobias Burnus <burnus@net-b.de>
PR fortran/34187
* gfortran.dg/bind_c_usage_15.f90: New.
From-SVN: r130386
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index b0962e0..00b9e25 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3419,6 +3419,7 @@ load_needed (pointer_info *p) sym = gfc_new_symbol (p->u.rsym.true_name, ns); sym->module = gfc_get_string (p->u.rsym.module); + strcpy (sym->binding_label, p->u.rsym.binding_label); associate_integer_pointer (p, sym); } |