From 802177fb0fc47ca3ea996c9ef15c5516fcd4a38d Mon Sep 17 00:00:00 2001 From: cesar Date: Thu, 29 Jun 2017 19:03:43 +0000 Subject: PR fortran/77765 gcc/fortran/ * openmp.c (gfc_match_oacc_routine): Check if proc_name exist before comparing the routine name against it. gcc/testsuite/ * gfortran.dg/goacc/pr77765.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@249809 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/openmp.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/fortran/openmp.c') diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 2b56558b7c1..8400354181c 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -2295,7 +2295,8 @@ gfc_match_oacc_routine (void) if (st) { sym = st->n.sym; - if (strcmp (sym->name, gfc_current_ns->proc_name->name) == 0) + if (gfc_current_ns->proc_name != NULL + && strcmp (sym->name, gfc_current_ns->proc_name->name) == 0) sym = NULL; } -- cgit v1.2.1