gcc/testsuite/gfortran.dg/pr91496.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdump-tree-original" }
   3 !
   4 subroutine foo (a, b, c, n)
   5   implicit none
   6   real a(*), b(*), c(*)
   7   integer :: i, n
   8   external bar
   9 !DIR$ unroll (4)
  10 !GCC$ unroll 4
  11   do i = 1, n
  12      a(i) = b(i) + c(i)
  13   end do
  14 !DIR$ ivdep
  15 !GCC$ ivdep
  16   do i = 1, n
  17      a(i) = b(i) + c(i)
  18   end do
  19 !DIR$ vector
  20 !GCC$ vector
  21   do i = 1, n
  22      a(i) = b(i) + c(i)
  23   end do
  24 !DIR$ novector
  25 !GCC$ novector
  26   do i = 1, n
  27      a(i) = b(i) + c(i)
  28   end do
  29 !GCC$ ivdep
  30 !GCC$ vector
  31   do i = 1, n
  32      a(i) = b(i) + c(i)
  33   end do
  34 !DIR$ noinline
  35 !GCC$ noinline          ! { dg-warning "Unclassifiable GCC directive" }
  36   call bar (a)
  37 end subroutine foo
  38 ! { dg-final { scan-tree-dump-times "ANNOTATE_EXPR" 6 "original" } }