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

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

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

From-SVN: r258509

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a06dc24703a25ea5126903dbcdc333b14d837b2f..bc31ea6a1140570cdb09c1a777f7805a7875d459 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/pr61775.f90 b/gcc/testsuite/gfortran.dg/pr61775.f90
new file mode 100644 (file)
index 0000000..48ef3cb
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr61775.f90
@@ -0,0 +1,9 @@
+! { 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