diff options
| author | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-10-03 13:44:09 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-10-03 13:44:09 +0000 |
| commit | c55cebdacd10021e43ba2b6ca8c6e65c105bb859 (patch) | |
| tree | e78fe0cd43c6ab51795736221d2936b44a112442 /gcc/fortran/trans-decl.c | |
| parent | 704312e73831c41151ce20d4d0dbe5803671f25e (diff) | |
| download | gcc-c55cebdacd10021e43ba2b6ca8c6e65c105bb859.zip gcc-c55cebdacd10021e43ba2b6ca8c6e65c105bb859.tar.gz gcc-c55cebdacd10021e43ba2b6ca8c6e65c105bb859.tar.bz2 | |
re PR middle-end/27478 (entry and addressable and value-expr: and the gimplifier)
PR middle-end/27478
* trans-decl.c (gfc_get_fake_result_decl): Mark var as
TREE_ADDRESSABLE.
* gfortran.dg/entry_8.f90: New test.
From-SVN: r117396
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index e4c5a5a..b3ebffc 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -1866,6 +1866,7 @@ gfc_get_fake_result_decl (gfc_symbol * sym, int parent_flag) TREE_PUBLIC (decl) = 0; TREE_USED (decl) = 1; GFC_DECL_RESULT (decl) = 1; + TREE_ADDRESSABLE (decl) = 1; layout_decl (decl, 0); |