Units: add a case for testing both expression and generic in a package

Author: masatake

Units/parser-ada.r/ada-expression-function-with-generic.d/expected.tags-e

@@ -0,0 +1,9 @@
+
+input.adb,486
+procedure My_Package isMy_Package/p
1,0
+  package Generic_Integer_Images isGeneric_Integer_Images/s
5,71
+    function Digit_To_Character (X : Unsigned_Type) return Character;Digit_To_Character/f
6,107
+    type Unsigned_Type is range <>;Unsigned_Type
4,35
+  package body Generic_Integer_Images isGeneric_Integer_Images/b
9,208
+    function Digit_To_Character (X : Unsigned_Type) return Character isDigit_To_Character/f
10,249
+  type Signed_Address is rangeSigned_Address/t
14,379

Units/parser-ada.r/ada-expression-function-with-generic.d/input.adb

@@ -0,0 +1,18 @@
+procedure My_Package is
+
+  generic
+    type Unsigned_Type is range <>;
+  package Generic_Integer_Images is
+    function Digit_To_Character (X : Unsigned_Type) return Character;
+  end Generic_Integer_Images;
+
+  package body Generic_Integer_Images is
+    function Digit_To_Character (X : Unsigned_Type) return Character is
+      (Character'Val (0));
+  end Generic_Integer_Images;
+
+  type Signed_Address is range
+    -2**(Standard'Address_Size - 1) .. 2**(Standard'Address_Size - 1) - 1; 
+begin
+  null;
+end My_Package;