blob: 55ae48d61f2b4c38da1045d51175ef1d288453c0 (
plain)
1
2
3
4
5
6
7
8
9
|
integer, pointer :: ptr
!$omp allocators allocate(ptr)
allocate(ptr)
end
! { dg-error "'!.OMP ALLOCATORS' at .1. requires '-fopenmp-allocators'" "" { target *-*-* } 3 }
! { dg-warning "All files that might deallocate such a variable must be compiled with '-fopenmp-allocators'" "" { target *-*-* } 3 }
! { dg-note "This includes explicit DEALLOCATE, reallocation on intrinsic assignment, INTENT\\(OUT\\) for allocatable dummy arguments, and reallocation of allocatable components allocated with an OpenMP allocator" "" { target *-*-* } 0 }
|
