From b86880388b981bd9fbcc7903784e93496f9540dd Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Mon, 21 Oct 2019 13:48:34 +0200 Subject: [PATCH] backport: re PR fortran/87752 (ICE in omp_add_variable, at gimplify.c:6776) Backported from mainline 2019-10-17 Jakub Jelinek PR fortran/87752 * gfortran.dg/gomp/pr87752.f90: New test. From-SVN: r277258 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/gomp/pr87752.f90 | 12 ++++++++++++ 2 files changed, 17 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/gomp/pr87752.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5f62524c985a..33b55ce7ae19 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,6 +1,11 @@ 2019-10-21 Jakub Jelinek Backported from mainline + 2019-10-17 Jakub Jelinek + + PR fortran/87752 + * gfortran.dg/gomp/pr87752.f90: New test. + 2019-10-05 Jakub Jelinek PR tree-optimization/91734 diff --git a/gcc/testsuite/gfortran.dg/gomp/pr87752.f90 b/gcc/testsuite/gfortran.dg/gomp/pr87752.f90 new file mode 100644 index 000000000000..072de218253b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/gomp/pr87752.f90 @@ -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 -- 2.47.3