Mercurial > hg > CbC > CbC_gcc

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
42 b = a 42 b = a
43 b(2,2) = a(2,2) + 0.2 43 b(2,2) = a(2,2) + 0.2
44 lo = .false. 44 lo = .false.
45 lo(3,3) = .true. 45 lo(3,3) = .true.
46 call bar(a,b,c,lo) 46 call bar(a,b,c,lo)
47 if (c /= 1) call abort 47 if (c /= 1) STOP 1
48 call baz(a,b,res); 48 call baz(a,b,res);
49 if (abs(res - 8.1) > 1e-5) call abort 49 if (abs(res - 8.1) > 1e-5) STOP 2
50 end program main 50 end program main
51 ! { dg-final { scan-tree-dump-times "while" 5 "original" } } 51 ! { dg-final { scan-tree-dump-times "while" 5 "original" } }