Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/pr52835.f90 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 1 ! PR tree-optimization/52835 | |
| 2 ! { dg-do compile } | |
| 3 ! { dg-options "-O3 -fdump-tree-optimized" } | |
| 4 | |
| 5 subroutine foo (x, y, z, n) | |
| 6 integer :: n, i | |
| 7 real :: x(n), y(n), z(n) | |
| 8 do i = 1, n | |
| 9 z(i) = 0.0 | |
| 10 y(i) = 0.0 | |
| 11 call bar (y(i), z(i), x(i)) | |
| 12 end do | |
| 13 end subroutine | |
| 14 | |
| 15 ! { dg-final { scan-tree-dump "bar\[ _\]" "optimized" } } |