We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent d8782fc commit acd95b9Copy full SHA for acd95b9
flang/lib/Semantics/check-declarations.cpp
@@ -949,7 +949,8 @@ void CheckHelper::CheckObjectEntity(
949
"!DIR$ IGNORE_TKR(R) may not apply in an ELEMENTAL procedure"_err_en_US);
950
}
951
if (IsPassedViaDescriptor(symbol)) {
952
- if (IsAllocatableOrObjectPointer(&symbol) && !ignoreTKR.test(common::IgnoreTKR::Pointer)) {
+ if (IsAllocatableOrObjectPointer(&symbol) &&
953
+ !ignoreTKR.test(common::IgnoreTKR::Pointer)) {
954
if (inExplicitExternalInterface) {
955
Warn(common::UsageWarning::IgnoreTKRUsage,
956
"!DIR$ IGNORE_TKR should not apply to an allocatable or pointer"_warn_en_US);
0 commit comments