OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/72744 (ICE in verify_ssa, at tree-ssa.c:1039)

Browse Source 
PR fortran/72744
	* gfortran.dg/gomp/pr72744.f90: New test.

From-SVN: r239619
This commit is contained in:
Jakub Jelinek 2016-08-19 17:28:59 +02:00 committed by Jakub Jelinek
parent 94e73c7869
commit fbdbd4b6d7
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/testsuite/ChangeLog
View File

@ -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.

18
gcc/testsuite/gfortran.dg/gomp/pr72744.f90 Normal file
View File

@ -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