backport: re PR middle-end/71758 (ICE in verify_gimple_in_cfg, at tree-cfg.c:5212)

	Backported from mainline
	2016-07-11  Jakub Jelinek  <jakub@redhat.com>

	PR middle-end/71758
	* omp-low.c (expand_omp_target): Gimplify device.

	* c-c++-common/gomp/pr71758.c: New test.
	* gfortran.dg/gomp/pr71758.f90: New test.

From-SVN: r238463

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index d87ee9b2fad06312a86ebdd291cf21e419857a02..e3e394ea4a7d85e79e9cdb31cc8be400dc62521b 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,11 @@
+2016-07-19  Jakub Jelinek  <jakub@redhat.com>
+
+       Backported from mainline
+       2016-07-11  Jakub Jelinek  <jakub@redhat.com>
+
+       PR middle-end/71758
+       * omp-low.c (expand_omp_target): Gimplify device.
+
 2016-07-18  Martin Liska  <mliska@suse.cz>
 
        Backported from mainline

diff --git a/gcc/omp-low.c b/gcc/omp-low.c
index 8b27a4570bdf60042467188db361a8ca2bca2433..6d1218d3f0a632a1efc68786769dc7fe90b3bb3d 100644 (file)
--- a/gcc/omp-low.c
+++ b/gcc/omp-low.c
@@ -8234,9 +8234,15 @@ expand_omp_target (struct omp_region *region)
       make_edge (else_bb, new_bb, EDGE_FALLTHRU);
 
       device = tmp_var;
+      gsi = gsi_last_bb (new_bb);
+    }
+  else
+    {
+      gsi = gsi_last_bb (new_bb);
+      device = force_gimple_operand_gsi (&gsi, device, true, NULL_TREE,
+                                        true, GSI_SAME_STMT);
     }
 
-  gsi = gsi_last_bb (new_bb);
   t = gimple_omp_target_data_arg (entry_stmt);
   if (t == NULL)
     {

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7619157ab8c834651a9530e7e28af6f72ece1b81..d61db44e0a7107afbe93517ab56868d7de069f6c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,12 @@
+2016-07-19  Jakub Jelinek  <jakub@redhat.com>
+
+       Backported from mainline
+       2016-07-11  Jakub Jelinek  <jakub@redhat.com>
+
+       PR middle-end/71758
+       * c-c++-common/gomp/pr71758.c: New test.
+       * gfortran.dg/gomp/pr71758.f90: New test.
+
 2016-07-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        Backport from trunk:

diff --git a/gcc/testsuite/c-c++-common/gomp/pr71758.c b/gcc/testsuite/c-c++-common/gomp/pr71758.c
new file mode 100644 (file)
index 0000000..d3c8697
--- /dev/null
+++ b/gcc/testsuite/c-c++-common/gomp/pr71758.c
@@ -0,0 +1,10 @@
+/* PR middle-end/71758 */
+
+void
+foo (int *p)
+{
+  long long i = 0;
+  #pragma omp target device (i)
+  ;
+  #pragma omp target update device (i) to (p[0])
+}

diff --git a/gcc/testsuite/gfortran.dg/gomp/pr71758.f90 b/gcc/testsuite/gfortran.dg/gomp/pr71758.f90
new file mode 100644 (file)
index 0000000..47215ba
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/gomp/pr71758.f90
@@ -0,0 +1,10 @@
+! PR middle-end/71758
+
+subroutine pr71758 (p)
+  integer(8) :: i
+  integer :: p(20)
+  i = 0
+  !$omp target device(i)
+  !$omp end target
+  !$omp target update to(p(1:1)) device(i)
+end subroutine