[OpenMP][Flang]Fix omp_get_cancellation return type from integer to logical

[Mxfg-incense]

Fix #142833
According to the OpenMP 5.2 spec, modify the return type of omp_get_cancellation() to logical.

[eugeneepshteyn]

LGTM. Is it worth adding some sort of unit test?

[Mxfg-incense]

LGTM. Is it worth adding some sort of unit test?

I’m not sure if it’s necessary to add a test. But I found that the earliest version of omp_get_cancellation(), as specified in the OpenMP 4.0 spec, already had its return value defined as a logical type, and this has not changed. It seems an error in the original implementation.

[mjklemm]

LGTM

[kparzysz]

The C implementation returns int. I haven't had time to check myself, but do we know that the C return value is correctly translated into LOGICAL?

[eugeneepshteyn]

The C implementation returns int. I haven't had time to check myself, but do we know that the C return value is correctly translated into LOGICAL?

Very good point. Luckily, OpenMP runtime uses 0 for FALSE and !0 for TRUE, and flang (like gfortran) uses 0 for .FALSE. and 1 for .TRUE., so I think it's compatible. If flang used -1 for .TRUE., then we would have a problem.

[Mxfg-incense]

Who can help me merge this PR?