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

re PR fortran/78279 (ICE in identical_array_ref, at fortran/dependency.c:104)

Browse source 
2016-12-01  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/78279
	* dependency.c (identical_array_ref): Convert gcc_assert to conditional
	and gfc_internal_error.

2016-12-01  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/78279
	* gfortran.dg/pr78279.f90: New test.

From-SVN: r243131
This commit is contained in:
Steven G. Kargl 2016-12-01 20:37:55 +00:00
parent 98934fac3b
commit 96ad5df6db
4 changed files with 24 additions and 1 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 @@
2016-12-01 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/78279
* dependency.c (identical_array_ref): Convert gcc_assert to conditional
and gfc_internal_error.
2016-11-30 Andre Vehreschild <vehre@gcc.gnu.org>
* check.c (gfc_check_allocated): By pass the caf_get call and check on

4
gcc/fortran/dependency.c
View file

@ -101,7 +101,9 @@ identical_array_ref (gfc_array_ref *a1, gfc_array_ref *a2)
if (a1->type == AR_ELEMENT && a2->type == AR_ELEMENT)
{
gcc_assert (a1->dimen == a2->dimen);
if (a1->dimen != a2->dimen)
gfc_internal_error ("identical_array_ref(): inconsistent dimensions");
for (i = 0; i < a1->dimen; i++)
{
if (gfc_dep_compare_expr (a1->start[i], a2->start[i]) != 0)

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2016-12-01 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/78279
* gfortran.dg/pr78279.f90: New test.
2016-12-01 David Edelsohn <dje.gcc@gmail.com>
* g++.dg/tls/pr77285-1.C: dg-add-options tls

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

@ -0,0 +1,10 @@
! { dg-do compile }
! { dg-options "-Ofast" }
program p
integer :: i
real :: z(2,4)
z = 0.0
do i = 1, 3
if ( z(i) > z(1,i+1) ) print *, i ! { dg-error "mismatch in array reference" }
end do
end