This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[gomp4] Remove erroneous test and unreachable situation.
- From: James Norris <James_Norris at mentor dot com>
- To: <gcc-patches at gcc dot gnu dot org>
- Date: Mon, 28 Sep 2015 10:41:49 -0500
- Subject: [gomp4] Remove erroneous test and unreachable situation.
- Authentication-results: sourceware.org; auth=none
Hi,
The attached patch removes an erroneous attribute test and
an unreachable situation. Both showed up when dealing with
the routine directive and the name option where the name
was the identical to the name of the function / subroutine.
Committed after regtest on x86_64 and powerpc64le.
Thanks!
Jim
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index 55eed48..44cbec1 100644
--- a/gcc/fortran/openmp.c
+++ b/gcc/fortran/openmp.c
@@ -1755,14 +1755,6 @@ gfc_match_oacc_routine (void)
return MATCH_ERROR;
}
- if (!sym->attr.external && !sym->attr.function && !sym->attr.subroutine)
- {
- gfc_error ("Syntax error in !$ACC ROUTINE ( NAME ) at %C, invalid"
- " function name %qs", sym->name);
- gfc_current_locus = old_loc;
- return MATCH_ERROR;
- }
-
if (gfc_match_char (')') != MATCH_YES)
{
gfc_error ("Syntax error in !$ACC ROUTINE ( NAME ) at %C, expecting"
@@ -1798,8 +1790,6 @@ gfc_match_oacc_routine (void)
gfc_current_ns->proc_name->attr.oacc_function
= gfc_oacc_routine_dims (c) + 1;
}
- else
- gcc_unreachable ();
if (n)
n->clauses = c;