P506-012: Add test for fully_qualified_name fix

ada/testsuite/tests/name_resolution/fqn_subunits/foo.ads

@@ -0,0 +1,4 @@
+package Foo is
+   X : Integer;
+   Z : Integer;
+end Foo;

ada/testsuite/tests/name_resolution/fqn_subunits/pkg-inner.adb

@@ -0,0 +1,14 @@
+separate (Pkg)
+package body Inner is
+
+   A : Integer;
+
+   procedure Proc is
+      Y : Integer := Pkg.Inner.A;
+      pragma Test_Statement;
+   begin
+      null;
+   end Proc;
+
+end Inner;
+

ada/testsuite/tests/name_resolution/fqn_subunits/pkg.adb

@@ -0,0 +1,5 @@
+package body Pkg is
+
+   package body Inner is separate;
+
+end Pkg;

ada/testsuite/tests/name_resolution/fqn_subunits/pkg.ads

@@ -0,0 +1,31 @@
+with Foo;
+
+package Pkg is
+
+   type Kikou is private;
+
+   package Inner is
+      type T is private;
+
+      use Foo;
+
+      procedure Proc;
+
+      Pouet : Integer;
+   private
+      type T is record
+         Obj : Integer;
+      end record;
+   end Inner;
+
+private
+   type Kikou is record
+      Lol : Integer;
+   end record;
+
+   Pouet : Integer;
+
+   Z : Float;
+
+   type T is null record;
+end Pkg;

ada/testsuite/tests/name_resolution/fqn_subunits/test.out

@@ -0,0 +1,4 @@
+Analyzing foo.ads
+#################
+
+Done.

ada/testsuite/tests/name_resolution/fqn_subunits/test.yaml

@@ -0,0 +1,3 @@
+driver: name-resolution
+input_sources: [foo.ads]
+with_default_project: False