Re: [PATCH 1/4] [GOMP4] [Fortran] OpenACC 1.0+ support in fortran front-end

[Thomas Schwinge]

Hi!

On Sun, 16 Mar 2014 20:23:48 +0100, Tobias Burnus <bur...@net-b.de> wrote:
> Can you or Thomas apply the following patch after my patch* has 
> been committed to the trunk and the branch has been updated? Please 
> mention PR fortran/60283 in the ChangeLog.
> 
> * http://gcc.gnu.org/ml/gcc-patches/2014-03/msg00782.html

> --- a/gcc/fortran/parse.c
> +++ b/gcc/fortran/parse.c
> @@ -550,8 +550,7 @@ decode_oacc_directive (void)
>         return ST_NONE;
>       }
> 
> -  if (gfc_implicit_pure (NULL))
> -    gfc_current_ns->proc_name->attr.implicit_pure = 0;
> +  gfc_unset_implicit_pure (NULL);
> 
>     old_locus = gfc_current_locus;

After the trunk merge, committed in r209150:

commit 83a3b119255d0913d088d652e6caa26026aacb32
Author: tschwinge <tschwinge@138bc75d-0d04-0410-961f-82ee72b054a4>
Date:   Sat Apr 5 10:36:58 2014 +0000

    Use gfc_unset_implicit_pure.
    
        PR fortran/60283
        gcc/fortran/
        * parse.c (decode_oacc_directive): Use gfc_unset_implicit_pure.
    
    git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gomp-4_0-branch@209150 
138bc75d-0d04-0410-961f-82ee72b054a4

diff --git gcc/fortran/ChangeLog.gomp gcc/fortran/ChangeLog.gomp
index 1ee6a7c..aff672e 100644
--- gcc/fortran/ChangeLog.gomp
+++ gcc/fortran/ChangeLog.gomp
@@ -1,3 +1,8 @@
+2014-04-05  Tobias Burnus  <bur...@net-b.de>
+
+       PR fortran/60283
+       * parse.c (decode_oacc_directive): Use gfc_unset_implicit_pure.
+
 2014-03-18  Thomas Schwinge  <tho...@codesourcery.com>
 
        * f95-lang.c (DEF_FUNCTION_TYPE_10): Define.
diff --git gcc/fortran/parse.c gcc/fortran/parse.c
index a217c05..79bdc95 100644
--- gcc/fortran/parse.c
+++ gcc/fortran/parse.c
@@ -550,8 +550,7 @@ decode_oacc_directive (void)
       return ST_NONE;
     }
 
-  if (gfc_implicit_pure (NULL))
-    gfc_current_ns->proc_name->attr.implicit_pure = 0;
+  gfc_unset_implicit_pure (NULL);
 
   old_locus = gfc_current_locus;
 


Grüße,
 Thomas

pgpEBJ02Q8y9J.pgp
Description: PGP signature