libgomp/testsuite/libgomp.fortran/pr48894.f90

   1 ! PR fortran/48894
   2 ! { dg-do run }
   3 ! { dg-options "-fdefault-integer-8" }
   4
   5   use omp_lib
   6   integer, parameter :: zero = 0
   7   integer :: err
   8   logical :: l
   9   err = 0
  10   !$omp parallel
  11     !$omp parallel private (l)
  12       l = omp_get_ancestor_thread_num (-HUGE (zero)) .ne. -1
  13       l = l .or. (omp_get_ancestor_thread_num (HUGE (zero)) .ne. -1)
  14       l = l .or. (omp_get_team_size (-HUGE (zero)) .ne. -1)
  15       l = l .or. (omp_get_team_size (HUGE (zero)) .ne. -1)
  16       if (l) then
  17         !$omp atomic
  18           err = err + 1
  19       endif
  20     !$omp end parallel
  21   !$omp end parallel
  22   if (err .ne. 0) call abort
  23 end