FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix fortran/93686 -- ICE matching data statements with derived-type pointers.

Browse source 
gcc/fortran/ChangeLog:

2020-04-06  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/93686
	* decl.c (gfc_match_data): Handle data matching for derived type
	pointers.

gcc/testsuite/ChangeLog:

2020-04-06  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/93686
	* gfortran.dg/pr93686_1.f90: New test.
	* gfortran.dg/pr93686_2.f90: Likewise.
	* gfortran.dg/pr93686_3.f90: Likewise.
	* gfortran.dg/pr93686_4.f90: Likewise.
This commit is contained in:
Fritz Reese 2020-04-06 16:14:29 -04:00
parent 130f703da0
commit d42a2e465d
7 changed files with 55 additions and 0 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 @@
2020-04-06 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/93686
* decl.c (gfc_match_data): Handle data matching for derived type
pointers.
2020-04-02 Tobias Burnus <tobias@codesourcery.com>
* gfortran.h (gfc_resolve_formal_arglist): Add prototype.

4
gcc/fortran/decl.c
View file

@ -696,6 +696,10 @@ gfc_match_data (void)
/* F2008:C567 (R536) A data-i-do-object or a variable that appears
as a data-stmt-object shall not be an object designator in which
a pointer appears other than as the entire rightmost part-ref. */
if (!e->ref && e->ts.type == BT_DERIVED
&& e->symtree->n.sym->attr.pointer)
goto partref;
ref = e->ref;
if (e->symtree->n.sym->ts.type == BT_DERIVED
&& e->symtree->n.sym->attr.pointer

8
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,11 @@
2020-04-06 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/93686
* gfortran.dg/pr93686_1.f90: New test.
* gfortran.dg/pr93686_2.f90: Likewise.
* gfortran.dg/pr93686_3.f90: Likewise.
* gfortran.dg/pr93686_4.f90: Likewise.
2020-04-06 Joel Brobecker <brobecker@adacore.com>
* gcc.target/arm/div64-unwinding.c: Skip on vxworks_kernel targets.

10
gcc/testsuite/gfortran.dg/pr93686_1.f90 Normal file
View file

@ -0,0 +1,10 @@
! { dg-do compile }
! PR fortran/93686
program p
type t
integer :: a
end type
type(t), pointer :: x
data x /t(2)/ ! { dg-error "part-ref with pointer attribute near ... is not rightmost part-ref of data-stmt-object" }
end

10
gcc/testsuite/gfortran.dg/pr93686_2.f90 Normal file
View file

@ -0,0 +1,10 @@
! { dg-do compile }
! PR fortran/93686
program p
type t
integer :: a = 1
end type
type(t), pointer :: x
data x /t(2)/ ! { dg-error "part-ref with pointer attribute near ... is not rightmost part-ref of data-stmt-object" }
end

9
gcc/testsuite/gfortran.dg/pr93686_3.f90 Normal file
View file

@ -0,0 +1,9 @@
! { dg-do compile }
! PR fortran/93686
program p
type t
end type
type(t), pointer :: x
data x /t()/ ! { dg-error "part-ref with pointer attribute near ... is not rightmost part-ref of data-stmt-object" }
end

8
gcc/testsuite/gfortran.dg/pr93686_4.f90 Normal file
View file

@ -0,0 +1,8 @@
! { dg-do compile }
! PR fortran/93686
type t
end type
type(t), pointer :: x
data x / ! { dg-error "part-ref with pointer attribute near ... is not rightmost part-ref of data-stmt-object" }
end