comparison gcc/testsuite/gfortran.dg/pr64530.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
11 ave(:) = 10.d0 11 ave(:) = 10.d0
12 old(:) = 3.d0 12 old(:) = 3.d0
13 tmp(:) = 0.d0 13 tmp(:) = 0.d0
14 14
15 call buggy(2.d0,asize,ave,old,tmp) 15 call buggy(2.d0,asize,ave,old,tmp)
16 if (any (tmp(:) .ne. 3.5)) call abort 16 if (any (tmp(:) .ne. 3.5)) STOP 1
17 end 17 end
18 18
19 subroutine buggy(scale_factor, asize, ave, old, tmp) 19 subroutine buggy(scale_factor, asize, ave, old, tmp)
20 20
21 implicit none 21 implicit none