diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2011-07-18 17:24:46 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-07-18 17:24:46 +0200 |
| commit | 15e2b5959db53fce1355acf89faec7841aa7a89c (patch) | |
| tree | 7a5fff74373c06f39451a60975ca47f6934e76e4 /gcc/fortran | |
| parent | daf633ba6f5a557db829462aad27191aa3653585 (diff) | |
| download | gcc-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/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 4 |
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; |