URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [actual_array_constructor_3.f90] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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
Go to most recent revision | Compare with Previous | Blame | View Log