diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-07-21 14:00:25 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-07-21 14:00:25 +0200 |
| commit | 0c53708eadd727f4089028e09840865db25a3cd9 (patch) | |
| tree | 90e38bf99a56bacbccf1b030246599e15eccdf02 /gcc/fortran/trans.h | |
| parent | 91bc61122f0f6781805aab89e21f674b218c72c9 (diff) | |
| download | gcc-0c53708eadd727f4089028e09840865db25a3cd9.zip gcc-0c53708eadd727f4089028e09840865db25a3cd9.tar.gz gcc-0c53708eadd727f4089028e09840865db25a3cd9.tar.bz2 | |
check.c (gfc_check_present): Allow coarrays.
2011-07-21 Tobias Burnus <burnus@net-b.de>
* check.c (gfc_check_present): Allow coarrays.
* trans-array.c (gfc_conv_array_ref): Avoid casting
when a pointer is wanted.
* trans-decl.c (create_function_arglist): For -fcoarray=lib,
handle hidden token and offset arguments for nondescriptor
coarrays.
* trans-expr.c (get_tree_for_caf_expr): New function.
(gfc_conv_procedure_call): For -fcoarray=lib pass the
token and offset for nondescriptor coarray dummies.
* trans.h (lang_type): Add caf_offset tree.
(GFC_TYPE_ARRAY_CAF_OFFSET): New macro.
2011-07-21 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/coarray_lib_token_1.f90: New.
From-SVN: r176562
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index c56aff8..48e054f 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -736,6 +736,7 @@ struct GTY((variable_size)) lang_type { tree base_decl[2]; tree nonrestricted_type; tree caf_token; + tree caf_offset; }; struct GTY((variable_size)) lang_decl { @@ -781,6 +782,7 @@ struct GTY((variable_size)) lang_decl { #define GFC_TYPE_ARRAY_RANK(node) (TYPE_LANG_SPECIFIC(node)->rank) #define GFC_TYPE_ARRAY_CORANK(node) (TYPE_LANG_SPECIFIC(node)->corank) #define GFC_TYPE_ARRAY_CAF_TOKEN(node) (TYPE_LANG_SPECIFIC(node)->caf_token) +#define GFC_TYPE_ARRAY_CAF_OFFSET(node) (TYPE_LANG_SPECIFIC(node)->caf_offset) #define GFC_TYPE_ARRAY_SIZE(node) (TYPE_LANG_SPECIFIC(node)->size) #define GFC_TYPE_ARRAY_OFFSET(node) (TYPE_LANG_SPECIFIC(node)->offset) #define GFC_TYPE_ARRAY_AKIND(node) (TYPE_LANG_SPECIFIC(node)->akind) |