The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

OODLER / OpenMP-Simple-0.2.4 / t / 06-PerlOMP_ENV_SET_NESTED.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

              
use strict;
use warnings;
use OpenMP::Simple;
use OpenMP::Environment;
use Test::More tests => 6;
use Inline (
    C    => 'DATA',
    with => qw/OpenMP::Simple/,
);
my $env = OpenMP::Environment->new;
note qq{Testing macro provided by OpenMP::Simple, 'PerlOMP_UPDATE_WITH_ENV__NESTED'};
$env->omp_nested(1);
is _get_nested(), 1, sprintf qq{OMP_NESTED is set as 1, is 1 (on), as expected};
$env->omp_nested(0);
is _get_nested(), 0, sprintf qq{OMP_NESTED is set as 0, is 0 (off), as expected};
$env->omp_nested('true');
is _get_nested(), 1, sprintf qq{OMP_NESTED is set as 'true', is 1 (on), as expected};
$env->omp_nested('false');
is _get_nested(), 0, sprintf qq{OMP_NESTED is set as 'false', is 0 (off), as expected};
$env->omp_nested('TRUE');
is _get_nested(), 1, sprintf qq{OMP_NESTED is set as 'TRUE', is 1 (on), as expected};
$env->omp_nested('FALSE');
is _get_nested(), 0, sprintf qq{OMP_NESTED is set as 'FALSE', is 0 (off), as expected};
__DATA__
__C__
int _get_nested() {
  PerlOMP_UPDATE_WITH_ENV__NESTED
  int ret = 0;
  #pragma omp parallel
  {
    #pragma omp single
    {
      ret = (omp_get_nested()) ? 1 : 0;
    }
  }
  return ret;
}
__END__