diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-07-18 15:24:46 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-07-18 15:24:46 +0000 |
| commit | d881175c99a7455bb2834bed901285e03992c85e (patch) | |
| tree | 7a5fff74373c06f39451a60975ca47f6934e76e4 /gcc/fortran/trans-decl.c | |
| parent | 7168c0174f9cc62c4b7eaaf4a86ba8356709b6fa (diff) | |
| download | gcc-d881175c99a7455bb2834bed901285e03992c85e.tar.gz | |
2011-07-17 Tobias Burnus <burnus@net-b.de>
* trans-decl.c (gfc_build_qualified_array): Make coarray's
token TYPE_QUAL_RESTRICT.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@176404 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 96aefa33c4d..65a8efac6b3 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; |