mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-28 06:26:12 -04:00
29 lines
793 B
Fortran
29 lines
793 B
Fortran
$NetBSD$
|
|
|
|
--- libgomp/testsuite/libgomp.fortran/pr48894.f90.orig Wed May 21 19:48:59 2014
|
|
+++ libgomp/testsuite/libgomp.fortran/pr48894.f90
|
|
@@ -0,0 +1,23 @@
|
|
+! PR fortran/48894
|
|
+! { dg-do run }
|
|
+! { dg-options "-fdefault-integer-8" }
|
|
+
|
|
+ use omp_lib
|
|
+ integer, parameter :: zero = 0
|
|
+ integer :: err
|
|
+ logical :: l
|
|
+ err = 0
|
|
+ !$omp parallel
|
|
+ !$omp parallel private (l)
|
|
+ l = omp_get_ancestor_thread_num (-HUGE (zero)) .ne. -1
|
|
+ l = l .or. (omp_get_ancestor_thread_num (HUGE (zero)) .ne. -1)
|
|
+ l = l .or. (omp_get_team_size (-HUGE (zero)) .ne. -1)
|
|
+ l = l .or. (omp_get_team_size (HUGE (zero)) .ne. -1)
|
|
+ if (l) then
|
|
+ !$omp atomic
|
|
+ err = err + 1
|
|
+ endif
|
|
+ !$omp end parallel
|
|
+ !$omp end parallel
|
|
+ if (err .ne. 0) call abort
|
|
+end
|