Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/actual_array_constructor_3.f90 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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) STOP 1 end program pr28914