Hi Thomas,
On 01.02.23 12:59, Thomas Schwinge wrote:
+ ! Don't do this (..., but it does pass the checks).
+ !$omp allocate (var1) allocator(10_omp_allocator_handle_kind) ! { dg-bogus
"Expected integer expression of the 'omp_allocator_handle_kind' kind" }
+ allocate (var1(x))
+
+ ! Assumtion is that 'omp_allocator_handle_kind' ('c_intptr_t') isn't 1.
+ !$omp allocate (var1) allocator(10_1) ! { dg-error "Expected integer expression
of the 'omp_allocator_handle_kind' kind at .1." }
allocate (var1(x))
s/Don't do this/Don't use a hard-coded value/ (or something like that)
s/Assumtion/Assumption/
Otherwise, LGTM. (Especially it is both only a testcase and only on OG12.)
Tobias
-----------------
Siemens Electronic Design Automation GmbH; Anschrift: Arnulfstraße 201, 80634
München; Gesellschaft mit beschränkter Haftung; Geschäftsführer: Thomas
Heurung, Frank Thürauf; Sitz der Gesellschaft: München; Registergericht
München, HRB 106955
