Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pr64530.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2
kono
parents:
diff changeset
3 program bug
kono
parents:
diff changeset
4 ! Bug triggered with at least three elements
kono
parents:
diff changeset
5 integer, parameter :: asize = 3
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 double precision,save :: ave(asize)
kono
parents:
diff changeset
8 double precision,save :: old(asize)
kono
parents:
diff changeset
9 double precision,save :: tmp(asize)
kono
parents:
diff changeset
10
kono
parents:
diff changeset
11 ave(:) = 10.d0
kono
parents:
diff changeset
12 old(:) = 3.d0
kono
parents:
diff changeset
13 tmp(:) = 0.d0
kono
parents:
diff changeset
14
kono
parents:
diff changeset
15 call buggy(2.d0,asize,ave,old,tmp)
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
16 if (any (tmp(:) .ne. 3.5)) STOP 1
111
kono
parents:
diff changeset
17 end
kono
parents:
diff changeset
18
kono
parents:
diff changeset
19 subroutine buggy(scale_factor, asize, ave, old, tmp)
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 implicit none
kono
parents:
diff changeset
22 ! Args
kono
parents:
diff changeset
23 double precision scale_factor
kono
parents:
diff changeset
24 integer asize
kono
parents:
diff changeset
25 double precision ave(asize)
kono
parents:
diff changeset
26 double precision old(asize)
kono
parents:
diff changeset
27 double precision tmp(asize)
kono
parents:
diff changeset
28
kono
parents:
diff changeset
29 ! Local
kono
parents:
diff changeset
30 integer i
kono
parents:
diff changeset
31
kono
parents:
diff changeset
32 do i = 1, asize
kono
parents:
diff changeset
33 tmp(i) = ave(i) - old(i)
kono
parents:
diff changeset
34 old(i) = ave(i)
kono
parents:
diff changeset
35 tmp(i) = tmp(i) / scale_factor
kono
parents:
diff changeset
36 end do
kono
parents:
diff changeset
37
kono
parents:
diff changeset
38 end subroutine buggy