diff mbox

[gomp4] declare directive [3/5]

Message ID 87ziz032rm.fsf@kepler.schwinge.homeip.net
State New
Headers show

Commit Message

Thomas Schwinge Oct. 30, 2015, 1:27 p.m. UTC 
Hi!

On Mon, 8 Jun 2015 10:04:11 -0500, James Norris <jnorris@codesourcery.com> wrote:
> --- a/gcc/fortran/gfortran.h
> +++ b/gcc/fortran/gfortran.h
> @@ -1174,6 +1183,7 @@ enum
>    OMP_LIST_FROM,
>    OMP_LIST_REDUCTION,
>    OMP_LIST_DEVICE_RESIDENT,
> +  OMP_LIST_LINK,
>    OMP_LIST_USE_DEVICE,
>    OMP_LIST_CACHE,
>    OMP_LIST_NUM

I noticed (my means of hitting a segmentation fault) that this was
missing an update to the clause_names in
gcc/fortran/openmp.c:resolve_omp_clauses.  (Yes, I agree that is a
strange, non-obvious dependency that this function needs to be updated
for OMP_LIST_* changes...)  Fixed on gomp-4_0-branch in r229576:

commit a5246d7b6c91e0800eeb6355bf5e4c63d27aafb2
Author: tschwinge <tschwinge@138bc75d-0d04-0410-961f-82ee72b054a4>
Date:   Fri Oct 30 13:24:35 2015 +0000

    Fix OMP_LIST_LINK handling
    
    	gcc/fortran/
    	* openmp.c (resolve_omp_clauses): Add "LINK" to clause_names.
    
    git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gomp-4_0-branch@229576 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/fortran/ChangeLog.gomp | 4 ++++
 gcc/fortran/openmp.c       | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)



Grüße
 Thomas
diff mbox

Patch

diff --git gcc/fortran/ChangeLog.gomp gcc/fortran/ChangeLog.gomp
index 7fe3eac..592dd8d 100644
--- gcc/fortran/ChangeLog.gomp
+++ gcc/fortran/ChangeLog.gomp
@@ -1,3 +1,7 @@ 
+2015-10-30  Thomas Schwinge  <thomas@codesourcery.com>
+
+	* openmp.c (resolve_omp_clauses): Add "LINK" to clause_names.
+
 2015-10-29  Thomas Schwinge  <thomas@codesourcery.com>
 
 	* openmp.c (gfc_match_omp_map_clause): Remove allow_sections
diff --git gcc/fortran/openmp.c gcc/fortran/openmp.c
index a2c5105..32779f7 100644
--- gcc/fortran/openmp.c
+++ gcc/fortran/openmp.c
@@ -3197,7 +3197,7 @@  resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses,
   static const char *clause_names[]
     = { "PRIVATE", "FIRSTPRIVATE", "LASTPRIVATE", "COPYPRIVATE", "SHARED",
 	"COPYIN", "UNIFORM", "ALIGNED", "LINEAR", "DEPEND", "MAP",
-	"TO", "FROM", "REDUCTION", "DEVICE_RESIDENT", "USE_DEVICE",
+	"TO", "FROM", "REDUCTION", "DEVICE_RESIDENT", "LINK", "USE_DEVICE",
 	"CACHE" };
 
   if (omp_clauses == NULL)