diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 2 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr85780.f90 | 5 |
4 files changed, 16 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 534b277..9410c52 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/85780 + * resolve.c (resolve_fl_procedure): Avoid NULL dereference. + +2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/85779 * decl.c (gfc_match_derived_decl): Fix NULL point dereference. diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index a53253ea..434c532 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -12503,7 +12503,7 @@ resolve_fl_procedure (gfc_symbol *sym, int mp_flag) while (curr_arg != NULL) { /* Skip implicitly typed dummy args here. */ - if (curr_arg->sym->attr.implicit_type == 0) + if (curr_arg->sym && curr_arg->sym->attr.implicit_type == 0) if (!gfc_verify_c_interop_param (curr_arg->sym)) /* If something is found to fail, record the fact so we can mark the symbol for the procedure as not being diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8273fca..fec1fca 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/85780 + * gfortran.dg/pr85780.f90: New test. + +2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/85779 * gfortran.dg/pr85779_1.f90: New test. * gfortran.dg/pr85779_2.f90: Ditto. diff --git a/gcc/testsuite/gfortran.dg/pr85780.f90 b/gcc/testsuite/gfortran.dg/pr85780.f90 new file mode 100644 index 0000000..ad6b27f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr85780.f90 @@ -0,0 +1,5 @@ +! { dg-do compile } +! { dg-options "-std=legacy" } +! PR fortran/85780 +subroutine s(*) bind(c) +end |