diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-10-20 00:31:48 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-10-20 00:31:48 +0000 |
| commit | b6969536a04af6c7c605773a92fce47a7ce115dd (patch) | |
| tree | 74cdde336f00d60e72b2eddcd618bd727e479a40 /gcc/fortran/resolve.c | |
| parent | f7ddf3f349394d39a8f73f498da3f726ce326ea7 (diff) | |
| download | gcc-b6969536a04af6c7c605773a92fce47a7ce115dd.zip gcc-b6969536a04af6c7c605773a92fce47a7ce115dd.tar.gz gcc-b6969536a04af6c7c605773a92fce47a7ce115dd.tar.bz2 | |
resolve.c (gfc_verify_binding_labels): Check for NULL pointer.
2015-10-19 Steven G. Kargl <kargl@gcc.gnu.org>
* resolve.c (gfc_verify_binding_labels): Check for NULL pointer.
2015-10-19 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.dg/pr67900.f90: New tests.
From-SVN: r229013
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 491507b..8798d4d 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -10800,7 +10800,7 @@ gfc_verify_binding_labels (gfc_symbol *sym) sym->binding_label = NULL; } - else if (sym->attr.flavor == FL_VARIABLE + else if (sym->attr.flavor == FL_VARIABLE && module && (strcmp (module, gsym->mod_name) != 0 || strcmp (sym->name, gsym->sym_name) != 0)) { |