From 11b6131424099d8671fe3c640c01881f32506799 Mon Sep 17 00:00:00 2001
From: Romain Beguet <beguet@adacore.com>
Date: Fri, 19 Apr 2024 11:22:42 +0200
Subject: [PATCH] Fix rule one_construct_per_line following LAL changes.

---
 lkql_checker/share/lkql/one_construct_per_line.lkql | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lkql_checker/share/lkql/one_construct_per_line.lkql b/lkql_checker/share/lkql/one_construct_per_line.lkql
index 2910abfff..0e923d991 100644
--- a/lkql_checker/share/lkql/one_construct_per_line.lkql
+++ b/lkql_checker/share/lkql/one_construct_per_line.lkql
@@ -24,6 +24,7 @@ fun one_construct_per_line(node) =
                        # generating false positives.
                        SingleTaskTypeDecl or AnonymousTypeDecl or
                        LabelDecl or GenericSubpInternal or
+                       ConcreteFormalSubpDecl or
                        ExtendedReturnStmtObjectDecl or
                        NamedStmtDecl))
      and (node.token_end().end_line ==