diff options
| -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 |