| ! { dg-additional-options "-fopenmp-allocators" } | |
| module m | |
| contains | |
| subroutine s(a,b,c,d) | |
| integer, allocatable :: A, B | |
| integer, allocatable :: C(:), D(:) | |
| !$omp allocators allocate(A,B) | |
| allocate(A,B) | |
| call move_alloc(A,B) | |
| !$omp allocators allocate(C,D) | |
| allocate(C(5),D(5)) | |
| call move_alloc(C,D) | |
| end | |
| subroutine q() | |
| integer, allocatable :: A, B | |
| integer, allocatable :: C(:), D(:) | |
| call s(a,b,c,d) | |
| end | |
| end | |
| use m | |
| call q | |
| end |