diff mbox

[gomp4] Remove erroneous test and unreachable situation.

Message ID 56095FBD.8080505@mentor.com
State New
Headers show

Commit Message

James Norris Sept. 28, 2015, 3:41 p.m. UTC 
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 mbox

Patch

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;