| module m |
| use iso_c_binding, only: c_intptr_t |
| use omp_lib_kinds, only: omp_default_mem_alloc |
| implicit none (type, external) |
| |
| integer(c_intptr_t) :: intptr |
| |
| integer :: A(4) = [1,2,3,4] |
| !$omp allocate(A) align(128) allocator(omp_default_mem_alloc) |
| contains |
| subroutine f() |
| integer :: B(4) = [1,2,3,4] |
| !$omp allocate(B) align(256) allocator(omp_default_mem_alloc) |
| |
| if (mod (transfer (loc (A), intptr), 128_c_intptr_t) /= 0) stop 1 |
| if (mod (transfer (loc (B), intptr), 256_c_intptr_t) /= 0) stop 2 |
| |
| call inner() |
| contains |
| subroutine inner() |
| integer :: C(4) = [1,2,3,4] |
| !$omp allocate(C) align(1024) allocator(omp_default_mem_alloc) |
| if (mod (transfer (loc (A), intptr), 128_c_intptr_t) /= 0) stop 3 |
| if (mod (transfer (loc (B), intptr), 256_c_intptr_t) /= 0) stop 4 |
| if (mod (transfer (loc (C), intptr), 1024_c_intptr_t) /= 0) stop 5 |
| end |
| end |
| end |
| |
| use m |
| implicit none (type, external) |
| if (mod (transfer (loc (A), intptr), 128_c_intptr_t) /= 0) stop 6 |
| call f() |
| end |
