trans-decl.c (gfc_build_qualified_array): Make coarray's token TYPE_QUAL_RESTRICT.

2011-07-17  Tobias Burnus  <burnus@net-b.de>

        * trans-decl.c (gfc_build_qualified_array): Make coarray's
        token TYPE_QUAL_RESTRICT.

From-SVN: r176404

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 215c3215397ce12f20f0bc3ca2bf5f7b07ff6874..a469ac9aa570fcdea147cccf386110803dc7a808 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-18  Tobias Burnus  <burnus@net-b.de>
+
+       * trans-decl.c (gfc_build_qualified_array): Make coarray's
+       token TYPE_QUAL_RESTRICT.
+
 2011-07-18  Tobias Burnus  <burnus@net-b.de>
 
        * resolve.c (resolve_transfer): Mention defined I/O
@@ -1075,7 +1080,7 @@
 
        * f95-lang.c (build_builtin_fntypes): Swap frexp parameter types.
 
-2010-04-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
+2011-04-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        * frontend-passes: (optimize_lexical_comparison): New function.
        (optimize_expr): Call it.
@@ -1211,7 +1216,7 @@
        * trans-types.c (gfc_get_function_type): Don't use varargs if the
        procedure is known to have no arguments.
 
-2010-03-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
+2011-03-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR fortran/22572
        * gfortran.h (gfc_option_t) : Add

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 96aefa33c4dab15f421196b174da91a93ba2a993..65a8efac6b30f17698ff823cd481e7e9eb13f7a9 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -759,7 +759,9 @@ gfc_build_qualified_array (tree decl, gfc_symbol * sym)
     {
       tree token;
 
-      token = gfc_create_var_np (pvoid_type_node, "caf_token");
+      token = gfc_create_var_np (build_qualified_type (pvoid_type_node,
+                                                      TYPE_QUAL_RESTRICT),
+                                "caf_token");
       GFC_TYPE_ARRAY_CAF_TOKEN (type) = token;
       DECL_ARTIFICIAL (token) = 1;
       TREE_STATIC (token) = 1;