| ! { dg-do compile } |
| ! { dg-options "-fdump-tree-original" } |
| ! |
| subroutine foo (a, b, c, n) |
| implicit none |
| real a(*), b(*), c(*) |
| integer :: i, n |
| external bar |
| !DIR$ unroll (4) |
| !GCC$ unroll 4 |
| do i = 1, n |
| a(i) = b(i) + c(i) |
| end do |
| !DIR$ ivdep |
| !GCC$ ivdep |
| do i = 1, n |
| a(i) = b(i) + c(i) |
| end do |
| !DIR$ vector |
| !GCC$ vector |
| do i = 1, n |
| a(i) = b(i) + c(i) |
| end do |
| !DIR$ novector |
| !GCC$ novector |
| do i = 1, n |
| a(i) = b(i) + c(i) |
| end do |
| !GCC$ ivdep |
| !GCC$ vector |
| do i = 1, n |
| a(i) = b(i) + c(i) |
| end do |
| !DIR$ noinline |
| !GCC$ noinline ! { dg-warning "Unclassifiable GCC directive" } |
| call bar (a) |
| end subroutine foo |
| ! { dg-final { scan-tree-dump-times "ANNOTATE_EXPR" 6 "original" } } |