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

re PR fortran/63331 (Fortran -fcompare-debug issues)

Browse Source 
PR fortran/63331
	* trans-types.c (gfc_get_array_descr_info): Build DEBUG_EXPR_DECL
	instead of VAR_DECL for base_decl.

	* gfortran.dg/pr63331.f90: New test.

From-SVN: r215516
This commit is contained in:
Jakub Jelinek 2014-09-23 17:25:55 +02:00 committed by Jakub Jelinek
parent ad01608e14
commit 54f9184b59
4 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2014-09-23 Jakub Jelinek <jakub@redhat.com>
PR fortran/63331
* trans-types.c (gfc_get_array_descr_info): Build DEBUG_EXPR_DECL
instead of VAR_DECL for base_decl.
2014-09-21 Jan Hubicka <hubicka@ucw.cz>
* openmp.c (omp_context): Rename to ...

6
gcc/fortran/trans-types.c
View File

@ -3041,8 +3041,10 @@ gfc_get_array_descr_info (const_tree type, struct array_descr_info *info)
base_decl = GFC_TYPE_ARRAY_BASE_DECL (type, indirect);
if (!base_decl)
{
base_decl = build_decl (input_location, VAR_DECL, NULL_TREE,
indirect ? build_pointer_type (ptype) : ptype);
base_decl = make_node (DEBUG_EXPR_DECL);
DECL_ARTIFICIAL (base_decl) = 1;
TREE_TYPE (base_decl) = indirect ? build_pointer_type (ptype) : ptype;
DECL_MODE (base_decl) = TYPE_MODE (TREE_TYPE (base_decl));
GFC_TYPE_ARRAY_BASE_DECL (type, indirect) = base_decl;
}
info->base_decl = base_decl;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2014-09-23 Jakub Jelinek <jakub@redhat.com>
PR fortran/63331
* gfortran.dg/pr63331.f90: New test.
2014-09-24 Renlin Li <renlin.li@arm.com>
* gcc.dg/ira-shrinkwrap-prep-1.c: Enable aarch64.

5
gcc/testsuite/gfortran.dg/pr63331.f90 Normal file
View File

@ -0,0 +1,5 @@
! PR fortran/63331
! { dg-do compile }
! { dg-options "-fcoarray=single -fcompare-debug" }
include 'intent_out_7.f90'