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

re PR fortran/28914 (Code inside loop hangs; outside loop runs normally; runs OK on other compilers)

Browse Source 
2006-09-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/28914
	* gfortran.dg/actual_array_constructor_3.f90: New test.

From-SVN: r116809
This commit is contained in:
Jerry DeLisle 2006-09-10 04:58:29 +00:00
parent bfa7a1e994
commit fb366039a9
2 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2006-09-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/28914
* gfortran.dg/actual_array_constructor_3.f90: New test.
2006-09-09 Paolo Bonzini <bonzini@gnu.org>
PR testsuite/26778

25
gcc/testsuite/gfortran.dg/actual_array_constructor_3.f90 Normal file
View File

@ -0,0 +1,25 @@
! { dg-do run }
! Tests the fix for pr28914, in which array constructors using the loop
! variable within a do loop for the implied do loop of the constructor
! would result in a corrupted do loop counter.
!
! Based on the testscase by Ed Korkven <kornkven@arsc.edu>
!
program pr28914
implicit none
integer n, i
parameter (n = 66000) ! Problem manifests for n > 65535
double precision a(n), summation
summation = 0.0
do i = 1, 1
a = (/ (i, i = 1, n) /) ! This is legal and was broken
a = sqrt(a)
summation = SUM(a)
enddo
summation = abs(summation - 11303932.9138271_8)
if (summation.gt.0.00001) call abort()
end program pr28914