This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Patch, Fortran] Mark "token" of static coarrays "restrict"
- From: Tobias Burnus <burnus at net-b dot de>
- To: gcc patches <gcc-patches at gcc dot gnu dot org>, gfortran <fortran at gcc dot gnu dot org>
- Date: Thu, 14 Jul 2011 11:01:29 +0200
- Subject: [Patch, Fortran] Mark "token" of static coarrays "restrict"
As the title says: Mark "token" of static coarrays "restrict"
Bootstrapped and regtested on x86-64-linux.
OK for the trunk?
Tobias
2011-07-13 Tobias Burnus <burnus@net-b.de>
* trans-decl.c (gfc_build_qualified_array): Make coarray's
token TYPE_QUAL_RESTRICT.
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index ddc7c36..65a8efa 100644
--- 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;