OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans-decl.c (gfc_build_qualified_array): Make coarray's token TYPE_QUAL_RESTRICT.

Browse Source 
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
This commit is contained in:
Tobias Burnus 2011-07-18 17:24:46 +02:00
parent daf633ba6f
commit 15e2b5959d
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
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
@ -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

4
gcc/fortran/trans-decl.c
View File

@ -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;