<commit_before>-- @file coverage_for_ada_task.adb
-- @date 28 May 2022
-- @author <NAME>
-- @brief Example program to test getting coverage for an Ada task

with Ada.Text_IO;

procedure Coverage_For_Ada_Task is
   task Print_Task is
      entry Print;
   end Print_Task;

   task body Print_Task is
   begin
      loop
         select
            accept Print do
               Ada.Text_IO.Put_Line ("In task Print_Task");
            end Print;
         or
            terminate;
         end select;
      end loop;
   end Print_Task;
begin
   for index in 1..3
   loop
      Print_Task.Print;
   end loop;
   Ada.Text_IO.Put_Line ("In main");
end Coverage_For_Ada_Task;
<commit_msg>Add coverage test for simple generic package<commit_after>-- @file coverage_for_ada_task.adb
-- @date 28 May 2022
-- @author <NAME>
-- @brief Example program to test getting coverage for an Ada task

with Ada.Text_IO;

procedure Coverage_For_Ada_Task is
   generic
      Name : String;
   package Generic_Name is
      procedure Display_Name;
   end Generic_Name;

   package body Generic_Name is
      procedure Display_Name is
      begin
         Ada.Text_IO.Put_Line ("My name is " & Name);
      end Display_Name;
   end Generic_Name;

   task Print_Task is
      entry Print;
   end Print_Task;

   task body Print_Task is
   begin
      loop
         select
            accept Print do
               Ada.Text_IO.Put_Line ("In task Print_Task");
            end Print;
         or
            terminate;
         end select;
      end loop;
   end Print_Task;

   package Package_A is new Generic_Name ("A");
   package Package_B is new Generic_Name ("B");
begin
   Package_A.Display_Name;
   for index in 1..3
   loop
      Print_Task.Print;
   end loop;
   Package_B.Display_Name;
   Ada.Text_IO.Put_Line ("In main");
end Coverage_For_Ada_Task;

{'fraction_non_alphanumeric': 0.06634040239260468, 'fraction_numerical': 0.008700380641653072, 'mean_word_length': 2.23943661971831, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3320423', 'n_tokens_mistral': 594, 'n_tokens_neox': 561, 'n_words': 187}