diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a06dc24703a..bc31ea6a114 100644
--- 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
index 00000000000..48ef3cbcbc3
--- /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