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

   1 subroutine example_criticial ()
   2   use omp_lib
   3   implicit none
   4   integer, parameter :: my_omp_hint = omp_sync_hint_contended
   5   integer i, a, b
   6
   7   !$omp parallel do
   8   do i = 1, 10
   9       !$omp critical (HASH0) hint(my_omp_hint)  ! OK
  10       a = a + i;
  11       !$omp end critical (HASH0)
  12   end do
  13   !$omp parallel do
  14   do i = 1, 10
  15       !$omp critical (HASH1) hint(omp_sync_hint_none)  ! OK
  16       a = a + i;
  17       !$omp end critical (HASH1)
  18   end do
  19   !$omp parallel do
  20   do i = 1, 10
  21       !$omp critical (HASH2) hint(omp_sync_hint_uncontended)  ! OK
  22       a = a + i;
  23       !$omp end critical (HASH2)
  24   end do
  25   !$omp parallel do
  26   do i = 1, 10
  27       !$omp critical (HASH3) hint(omp_sync_hint_contended)  ! OK
  28       a = a + i;
  29       !$omp end critical (HASH3)
  30   end do
  31   !$omp parallel do
  32   do i = 1, 10
  33       !$omp critical (HASH4) hint(omp_sync_hint_speculative)  ! OK
  34       a = a + i;
  35       !$omp end critical (HASH4)
  36   end do
  37   !$omp parallel do
  38   do i = 1, 10
  39       !$omp critical (HASH5) hint(omp_sync_hint_nonspeculative)  ! OK
  40       a = a + i;
  41       !$omp end critical (HASH5)
  42   end do
  43   !$omp parallel do
  44   do i = 1, 10
  45       !$omp critical (HASH6) hint(omp_sync_hint_contended + omp_sync_hint_speculative)  ! OK
  46       a = a + i;
  47       !$omp end critical (HASH6)
  48   end do
  49
  50   !$omp parallel do
  51   do i = 1, 10
  52       ! Accepted but invalid: different hint for same name.
  53       !$omp critical (HASH6) hint(omp_sync_hint_contended + omp_sync_hint_speculative)  ! OK
  54       a = a + i;
  55       !$omp end critical (HASH6)
  56   end do
  57   !$omp parallel do
  58   do i = 1, 10
  59       ! Accepted but invalid: Some random integer expr.
  60       !$omp critical (HASH) hint(1 + 2)
  61       a = a + i;
  62       !$omp end critical (HASH)
  63   end do
  64   !$omp parallel do
  65   do i = 1, 10
  66       !$omp critical (HASH) hint(-3)  ! { dg-error "shall be a valid constant hint expression" }
  67       a = a + i;
  68       !$omp end critical (HASH)
  69   end do
  70   !$omp parallel do
  71   do i = 1, 10
  72       !$omp critical (HASH2) hint(b)  ! { dg-error "shall be a valid constant hint expression" }
  73       a = a + i;
  74       !$omp end critical (HASH2)
  75   end do
  76   !$omp parallel do
  77   do i = 1, 10
  78       !$omp critical () hint(omp_hint_speculative)  ! { dg-error "Invalid character in name" }
  79       a = a + i;
  80 !      !$omp end critical
  81   end do
  82   !$omp parallel do
  83   do i = 1, 10
  84       !$omp critical hint(omp_sync_hint_none)  ! OK
  85       a = a + i;
  86       !$omp end critical
  87   end do
  88   !$omp parallel do
  89   do i = 1, 10
  90       !$omp critical hint(omp_sync_hint_contended)  ! { dg-error "CRITICAL at .1. with HINT clause requires a NAME, except when omp_sync_hint_none is used" }
  91       a = a + i;
  92       !$omp end critical
  93   end do
  94 end