Skip to content

Commit 5e39af5

Browse files
committed
Merge branch 'topic/492' into 'master'
Fix explicit_full_discrete_ranges rule Closes #492 See merge request eng/libadalang/langkit-query-language!456
2 parents 84d6972 + 3c52aa6 commit 5e39af5

File tree

2 files changed

+7
-1
lines changed

2 files changed

+7
-1
lines changed

lkql_checker/share/lkql/explicit_full_discrete_ranges.lkql

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -24,4 +24,5 @@ fun explicit_full_discrete_ranges(node) =
2424
|" for J in Idx loop
2525
|" L := L + J;
2626
|" end loop;
27-
node is BinOp(f_op: OpDoubleDot) when full_range(node.f_left, node.f_right)
27+
node is BinOp(parent: not RangeSpec, f_op: OpDoubleDot)
28+
when full_range(node.f_left, node.f_right)
Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,8 @@
11
package Explicit_Full_Discrete_Ranges is
2+
type T1 is new Float range 1.0 .. 2.0;
3+
4+
type T2 is delta 0.1 range T1'First .. T1'Last; -- NOFLAG
5+
type T3 is delta 0.1 digits 7 range T1'First .. T1'Last; -- NOFLAG
6+
27
procedure P;
38
end Explicit_Full_Discrete_Ranges;

0 commit comments

Comments
 (0)