diff options
| author | Jakub Jelinek <jakub@gcc.gnu.org> | 2005-10-25 20:43:22 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2005-10-25 20:43:22 +0200 |
| commit | b122dc6a9ab39f2bd75fbf712013b89ff5a71af8 (patch) | |
| tree | 880f2c237699194e84e6f6e4ece0b041f60f2e4e /gcc/fortran/decl.c | |
| parent | 910450c13f863770bb095264d2ad17b47befce48 (diff) | |
| download | gcc-b122dc6a9ab39f2bd75fbf712013b89ff5a71af8.zip gcc-b122dc6a9ab39f2bd75fbf712013b89ff5a71af8.tar.gz gcc-b122dc6a9ab39f2bd75fbf712013b89ff5a71af8.tar.bz2 | |
trans.h (gfc_conv_cray_pointee): Remove.
* trans.h (gfc_conv_cray_pointee): Remove.
* trans-expr.c (gfc_conv_variable): Revert 2005-10-24 change.
* trans-array.c (gfc_conv_array_parameter): Likewise.
* trans-decl.c (gfc_conv_cray_pointee): Remove.
(gfc_finish_cray_pointee): New function.
(gfc_finish_var_decl): Use it. Don't return early for Cray
pointees.
(gfc_create_module_variable): Revert 2005-10-24 change.
* decl.c (cray_pointer_decl): Update comment.
* gfortran.texi: Don't mention Cray pointees aren't visible in the
debugger.
* symbol.c (check_conflict): Add conflict between cray_pointee
and in_common resp. in_equivalence.
* resolve.c (resolve_equivalence): Revert 2005-10-24 change.
testsuite/
* gfortran.dg/cray_pointers_4.f90: New test.
* module.c (ab_attribute): Add AB_CRAY_POINTER and AB_CRAY_POINTEE.
(attr_bits): Likewise.
(mio_symbol_attribute): Save and restore cray_pointe{r,e} attributes.
(mio_symbol): For cray_pointee write/read cp_pointer reference.
testsuite/
* gfortran.dg/cray_pointers_5.f90: New test.
From-SVN: r105891
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 8102fa6..5d4bd56 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -2995,8 +2995,7 @@ attr_decl (void) pointer (ipt, ar(10)) any subsequent uses of ar will be translated (in C-notation) as ar(i) => ((<type> *) ipt)(i) - By the time the code is translated into GENERIC, the pointee will - have disappeared from the code entirely. */ + After gimplification, pointee variable will disappear in the code. */ static match cray_pointer_decl (void) @@ -3112,7 +3111,7 @@ cray_pointer_decl (void) } /* Point the Pointee at the Pointer. */ - cpte->cp_pointer=cptr; + cpte->cp_pointer = cptr; if (gfc_match_char (')') != MATCH_YES) { |