From: burnus Date: Mon, 18 Jul 2011 15:24:46 +0000 (+0000) Subject: 2011-07-17 Tobias Burnus X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=d881175c99a7455bb2834bed901285e03992c85e;p=thirdparty%2Fgcc.git 2011-07-17 Tobias Burnus * 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 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 215c3215397c..a469ac9aa570 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2011-07-18 Tobias Burnus + + * trans-decl.c (gfc_build_qualified_array): Make coarray's + token TYPE_QUAL_RESTRICT. + 2011-07-18 Tobias Burnus * 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 +2011-04-04 Thomas Koenig * 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 +2011-03-21 Thomas Koenig PR fortran/22572 * gfortran.h (gfc_option_t) : Add diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 96aefa33c4da..65a8efac6b30 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;