aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran
diff options
context:
space:
mode:
authorTobias Burnus <burnus@gcc.gnu.org>2011-07-18 17:24:46 +0200
committerTobias Burnus <burnus@gcc.gnu.org>2011-07-18 17:24:46 +0200
commit15e2b5959db53fce1355acf89faec7841aa7a89c (patch)
tree7a5fff74373c06f39451a60975ca47f6934e76e4 /gcc/fortran
parentdaf633ba6f5a557db829462aad27191aa3653585 (diff)
downloadgcc-15e2b5959db53fce1355acf89faec7841aa7a89c.zip
gcc-15e2b5959db53fce1355acf89faec7841aa7a89c.tar.gz
gcc-15e2b5959db53fce1355acf89faec7841aa7a89c.tar.bz2
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
Diffstat (limited to 'gcc/fortran')
-rw-r--r--gcc/fortran/ChangeLog9
-rw-r--r--gcc/fortran/trans-decl.c4
2 files changed, 10 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 215c321..a469ac9 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,10 @@
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
in the diagnostic for alloc_comp/pointer_comp.
@@ -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 96aefa3..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;