Fix the 'overriding_indicators' rule

HugoGGuerrier · HugoGGuerrier · commit 57decdd556cd · 2025-07-16T12:17:18.000+02:00
diff --git a/lkql_checker/share/lkql/overriding_indicators.lkql b/lkql_checker/share/lkql/overriding_indicators.lkql
@@ -86,7 +86,7 @@ fun overriding_indicators(node) =
     |"    end Foo;
     # Select primitives subprograms
     (
-        node is (BasicSubpDecl | BaseSubpBody) (f_overriding: OverridingUnspecified)
+        node is (ClassicSubpDecl | EntryDecl | BaseSubpBody) (f_overriding: OverridingUnspecified)
         when is_overriding_subprogram(node)
     )
 

Original file line number	Diff line number	Diff line change
`@@ -86,7 +86,7 @@ fun overriding_indicators(node) =`
`86`	`86`	`\|" end Foo;`
`87`	`87`	`# Select primitives subprograms`
`88`	`88`	`(`
`89`		`- node is (BasicSubpDecl \| BaseSubpBody) (f_overriding: OverridingUnspecified)`
	`89`	`+ node is (ClassicSubpDecl \| EntryDecl \| BaseSubpBody) (f_overriding: OverridingUnspecified)`
`90`	`90`	`when is_overriding_subprogram(node)`
`91`	`91`	`)`
`92`	`92`