[OpenMP][Flang]Fix omp_get_cancellation return type from integer to logical (#142990)

2025-06-12 11:28:57 +08:00
parent a71210e5ab
commit 968d8eaa44
1 changed files with 1 additions and 1 deletions
--- a/openmp/runtime/src/include/omp_lib.F90.var
+++ b/openmp/runtime/src/include/omp_lib.F90.var
@@ -399,7 +399,7 @@

          function omp_get_cancellation() bind(c)
            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_cancellation
+            logical (kind=omp_logical_kind) omp_get_cancellation
          end function omp_get_cancellation

          function omp_is_initial_device() bind(c)