libgomp/testsuite/libgomp.fortran/optional-bind-c.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

! With bind(C), the C (CFI) array descriptor is converted to
! a Fortran array descriptor - thus, internally a PARM_DECL is
! converted to a VAR_DECL - check that the optional check still works

module m
contains
subroutine foo(x, y)  bind(C)
  integer, optional :: x,y(:)
  !$omp target map(tofrom:x)
     if (present (x)) x = 5
     if (present (y)) y(1) = 5
  !$omp end target
end
end

use m
call foo()
end