blob: cb316748f0e18fc272a5d22424b756109f5e4921 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
! { 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" } }
|
