You've already forked libadalang
mirror of
https://github.com/AdaCore/libadalang.git
synced 2026-02-12 12:28:54 -08:00
4382a22f9c
Move most of "ada/*" to the root directory (this makes sense, as this repository has been dedicated to Libadalang for years), and rename "ada/language" to "ada". TN: T914-010
25 lines
416 B
Plaintext
25 lines
416 B
Plaintext
with Ada.Text_IO; use Ada.Text_IO;
|
|
|
|
procedure What is
|
|
type Enum is (A, 'B', C);
|
|
generic
|
|
with function J return Enum is A;
|
|
with function I return ENum is 'B';
|
|
package P is
|
|
procedure Foo;
|
|
end P;
|
|
|
|
package body P is
|
|
procedure Foo is
|
|
begin
|
|
Put_Line (J'Img);
|
|
Put_Line (I'Img);
|
|
end Foo;
|
|
end P;
|
|
|
|
package Inst is new P;
|
|
|
|
begin
|
|
Inst.Foo;
|
|
end What;
|