re PR fortran/72744 (ICE in verify_ssa, at tree-ssa.c:1039)

	PR fortran/72744
	* gfortran.dg/gomp/pr72744.f90: New test.

From-SVN: r239619

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a4ae65dd6dd13bf8425d938554ed1b7768e49804..fa0c6985b9eb78a95e98d1ef638f058cffc1b50f 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,8 @@
 2016-08-19  Jakub Jelinek  <jakub@redhat.com>
 
+       PR fortran/72744
+       * gfortran.dg/gomp/pr72744.f90: New test.
+
        PR fortran/69281
        * gfortran.dg/gomp/pr69281.f90: New test.
 

diff --git a/gcc/testsuite/gfortran.dg/gomp/pr72744.f90 b/gcc/testsuite/gfortran.dg/gomp/pr72744.f90
new file mode 100644 (file)
index 0000000..e321b67
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/gomp/pr72744.f90
@@ -0,0 +1,18 @@
+! PR fortran/72744
+! { dg-do compile }
+! { dg-additional-options "-Ofast" }
+
+program pr72744
+  integer, parameter :: n = 20
+  integer :: i, z(n), h(n)
+  z = [(i, i=1,n)]
+  h = [(i, i=n,1,-1)]
+  call sub (n, h)
+  if ( any(h/=z) ) call abort
+end
+subroutine sub (n, x)
+  integer :: n, x(n)
+!$omp parallel
+  x(:) = x(n:1:-1)
+!$omp end parallel
+end