gcc/testsuite/gfortran.dg/gomp/critical-hint-2.f90

   1 ! { dg-additional-options "-fdump-tree-original" }
   2 subroutine example_criticial ()
   3   use omp_lib
   4   implicit none
   5   integer, parameter :: my_omp_hint = omp_sync_hint_contended
   6   integer i, a, b
   7
   8   !$omp parallel do
   9   do i = 1, 10
  10       !$omp critical (HASH0) hint(my_omp_hint)
  11       a = a + i;
  12       !$omp end critical (HASH0)
  13   end do
  14   !$omp parallel do
  15   do i = 1, 10
  16       !$omp critical (HASH1), hint(omp_sync_hint_none)
  17       a = a + i;
  18       !$omp end critical (HASH1)
  19   end do
  20   !$omp parallel do
  21   do i = 1, 10
  22       !$omp critical (HASH2) hint(omp_sync_hint_uncontended)
  23       a = a + i;
  24       !$omp end critical (HASH2)
  25   end do
  26   !$omp parallel do
  27   do i = 1, 10
  28       !$omp critical (HASH3) hint(omp_sync_hint_contended)
  29       a = a + i;
  30       !$omp end critical (HASH3)
  31   end do
  32   !$omp parallel do
  33   do i = 1, 10
  34       !$omp critical (HASH4) hint(omp_sync_hint_speculative)
  35       a = a + i;
  36       !$omp end critical (HASH4)
  37   end do
  38   !$omp parallel do
  39   do i = 1, 10
  40       !$omp critical (HASH5) hint(omp_sync_hint_nonspeculative)
  41       a = a + i;
  42       !$omp end critical (HASH5)
  43   end do
  44   !$omp parallel do
  45   do i = 1, 10
  46       !$omp critical (HASH6), hint(omp_sync_hint_contended + omp_sync_hint_speculative)
  47       a = a + i;
  48       !$omp end critical (HASH6)
  49   end do
  50   !$omp parallel do
  51   do i = 1, 10
  52       !$omp critical hint(omp_sync_hint_none + omp_sync_hint_none)
  53       a = a + i;
  54       !$omp end critical
  55   end do
  56 end
  57
  58 ! { dg-final { scan-tree-dump-times "omp critical \\(hash0\\) hint\\(2\\)" 1 "original" } }
  59 ! { dg-final { scan-tree-dump-times "omp critical \\(hash1\\) hint\\(0\\)" 1 "original" } }
  60 ! { dg-final { scan-tree-dump-times "omp critical \\(hash2\\) hint\\(1\\)" 1 "original" } }
  61 ! { dg-final { scan-tree-dump-times "omp critical \\(hash3\\) hint\\(2\\)" 1 "original" } }
  62 ! { dg-final { scan-tree-dump-times "omp critical \\(hash4\\) hint\\(8\\)" 1 "original" } }
  63 ! { dg-final { scan-tree-dump-times "omp critical \\(hash5\\) hint\\(4\\)" 1 "original" } }
  64 ! { dg-final { scan-tree-dump-times "omp critical \\(hash6\\) hint\\(10\\)" 1 "original" } }
  65 ! { dg-final { scan-tree-dump-times "omp critical hint\\(0\\)" 1 "original" } }