Disable ignore_tkr warning when 'p' is used

eugeneepshteyn · eugeneepshteyn · commit d8782fc7a5a7 · 2025-10-28T15:23:45.000-04:00
diff --git a/flang/lib/Semantics/check-declarations.cpp b/flang/lib/Semantics/check-declarations.cpp
@@ -949,7 +949,7 @@ void CheckHelper::CheckObjectEntity(
             "!DIR$ IGNORE_TKR(R) may not apply in an ELEMENTAL procedure"_err_en_US);
       }
       if (IsPassedViaDescriptor(symbol)) {
-        if (IsAllocatableOrObjectPointer(&symbol)) {
+        if (IsAllocatableOrObjectPointer(&symbol) && !ignoreTKR.test(common::IgnoreTKR::Pointer)) {
           if (inExplicitExternalInterface) {
             Warn(common::UsageWarning::IgnoreTKRUsage,
                 "!DIR$ IGNORE_TKR should not apply to an allocatable or pointer"_warn_en_US);

Original file line number	Diff line number	Diff line change
`@@ -949,7 +949,7 @@ void CheckHelper::CheckObjectEntity(`
`949`	`949`	`"!DIR$ IGNORE_TKR(R) may not apply in an ELEMENTAL procedure"_err_en_US);`
`950`	`950`	`}`
`951`	`951`	`if (IsPassedViaDescriptor(symbol)) {`
`952`		`- if (IsAllocatableOrObjectPointer(&symbol)) {`
	`952`	`+ if (IsAllocatableOrObjectPointer(&symbol) && !ignoreTKR.test(common::IgnoreTKR::Pointer)) {`
`953`	`953`	`if (inExplicitExternalInterface) {`
`954`	`954`	`Warn(common::UsageWarning::IgnoreTKRUsage,`
`955`	`955`	`"!DIR$ IGNORE_TKR should not apply to an allocatable or pointer"_warn_en_US);`