From 968d8eaa44c500259fe8d56ad77ec1c71cad35e2 Mon Sep 17 00:00:00 2001 From: Yang Zaizhou <91008302+Mxfg-incense@users.noreply.github.com> Date: Thu, 12 Jun 2025 11:28:57 +0800 Subject: [PATCH] [OpenMP][Flang]Fix omp_get_cancellation return type from integer to logical (#142990) --- openmp/runtime/src/include/omp_lib.F90.var | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/openmp/runtime/src/include/omp_lib.F90.var b/openmp/runtime/src/include/omp_lib.F90.var index 3463b698291e..20639f60b5d9 100644 --- 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)