| implicit none |
| type t |
| integer, allocatable :: a, b(:) |
| end type t |
| type(t) :: x, y, z |
| integer :: i |
| |
| !$omp target |
| if (allocated(x%a)) stop 1 |
| if (allocated(x%b)) stop 2 |
| !$omp end target |
| |
| allocate(x%a, x%b(-4:6)) |
| x%b(:) = [(i, i=-4,6)] |
| |
| !$omp target |
| if (.not. allocated(x%a)) stop 3 |
| if (.not. allocated(x%b)) stop 4 |
| if (lbound(x%b,1) /= -4) stop 5 |
| if (ubound(x%b,1) /= 6) stop 6 |
| if (any (x%b /= [(i, i=-4,6)])) stop 7 |
| !$omp end target |
| |
| |
| ! The following only works with arrays due to |
| ! PR fortran/96668 |
| |
| !$omp target enter data map(to: y, z) |
| |
| !$omp target |
| if (allocated(y%b)) stop 8 |
| if (allocated(z%b)) stop 9 |
| !$omp end target |
| |
| allocate(y%b(5), z%b(3)) |
| y%b = 42 |
| z%b = 99 |
| |
| ! (implicitly) 'tofrom' mapped |
| ! Planned for OpenMP 6.0 (but common extension) |
| ! OpenMP <= 5.0 unclear |
| !$omp target |
| if (.not.allocated(y%b)) stop 10 |
| if (any (y%b /= 42)) stop 11 |
| !$omp end target |
| |
| ! always map: OpenMP 5.1 (clarified) |
| !$omp target map(always, tofrom: z) |
| if (.not.allocated(z%b)) stop 12 |
| if (any (z%b /= 99)) stop 13 |
| !$omp end target |
| |
| end |
