diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2016-08-19 17:28:59 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2016-08-19 17:28:59 +0200 |
| commit | fbdbd4b6d78bb9730107ebf5b2e7351f0d3dbf33 (patch) | |
| tree | 2b6188fb7eb7f039389b3e4895e30318373a8a14 | |
| parent | 94e73c786980bd8b84c935952a05e02b9c55e05b (diff) | |
| download | gcc-fbdbd4b6d78bb9730107ebf5b2e7351f0d3dbf33.zip gcc-fbdbd4b6d78bb9730107ebf5b2e7351f0d3dbf33.tar.gz gcc-fbdbd4b6d78bb9730107ebf5b2e7351f0d3dbf33.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 3 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/pr72744.f90 | 18 |
2 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a4ae65d..fa0c698 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 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 |