From: Jakub Jelinek <jakub@redhat.com>
Date: Fri, 19 Aug 2016 15:28:59 +0000 (+0200)
Subject: re PR fortran/72744 (ICE in verify_ssa, at tree-ssa.c:1039)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=fbdbd4b6d78bb9730107ebf5b2e7351f0d3dbf33;p=gcc.git

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 a4ae65dd6dd..fa0c6985b9e 100644
--- 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
index 00000000000..e321b6752f9
--- /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