re PR fortran/61775 (Allocatable array initialized by implied-do loop array…

re PR fortran/61775 (Allocatable array initialized by implied-do loop array constructor gives invalid memory reference)

2018-03-13  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/61775
	* gfortran.dg/pr61775.f90: New test.

From-SVN: r258509

gcc/testsuite/ChangeLog

+2018-03-13  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/61775
+	* gfortran.dg/pr61775.f90: New test.
+
 2018-03-13  Jakub Jelinek  <jakub@redhat.com>
 
 	PR c++/84843

gcc/testsuite/gfortran.dg/pr61775.f90

+! { dg-do run }
+! PR fortran/61775.f90
+program pi
+   real, allocatable :: x(:)
+   integer :: n
+   n  = 10000
+   x = [ (i,i=1,n) ]
+   if (x(n) /= 10000) stop 1
+end program pi