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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 11 | ||||
| -rw-r--r-- | gcc/fortran/module.c | 1 |
3 files changed, 13 insertions, 7 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 93f775e..b0fa324 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,4 +1,12 @@ 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> Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/34192 diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 78b05c4..d66ea53 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -3126,15 +3126,14 @@ set_binding_label (char *dest_label, const char *sym_name, int num_idents) if (curr_binding_label[0] != '\0') { /* Binding label given; store in temp holder til have sym. */ - strncpy (dest_label, curr_binding_label, - strlen (curr_binding_label) + 1); + strcpy (dest_label, curr_binding_label); } else { /* No binding label given, and the NAME= specifier did not exist, which means there was no NAME="". */ if (sym_name != NULL && has_name_equals == 0) - strncpy (dest_label, sym_name, strlen (sym_name) + 1); + strcpy (dest_label, sym_name); } return SUCCESS; @@ -4736,12 +4735,10 @@ gfc_match_bind_c (gfc_symbol *sym) { if (sym != NULL) { - strncpy (sym->binding_label, binding_label, - strlen (binding_label)+1); + strcpy (sym->binding_label, binding_label); } else - strncpy (curr_binding_label, binding_label, - strlen (binding_label) + 1); + strcpy (curr_binding_label, binding_label); } else { 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); } |