Hi!

This has been fixed already with r273096, but it is useful to have also a
Fortran testcase.  Committed to trunk as obvious.

2019-10-17  Jakub Jelinek  <ja...@redhat.com>

        PR fortran/87752
        * gfortran.dg/gomp/pr87752.f90: New test.

--- gcc/testsuite/gfortran.dg/gomp/pr87752.f90.jj       2019-10-16 
10:19:09.584439754 +0200
+++ gcc/testsuite/gfortran.dg/gomp/pr87752.f90  2019-10-16 10:19:02.343549209 
+0200
@@ -0,0 +1,12 @@
+! PR fortran/87752
+! { dg-do compile }
+! { dg-additional-options "-Ofast" }
+
+subroutine foo (n, u, v)
+  integer :: n
+  real, pointer :: u(:), v(:)
+  !$omp parallel do simd
+  do i = 1, n
+    u(:) = v(:)
+  end do
+end

        Jakub

Reply via email to