mirror of
https://github.com/gcc-mirror/gcc.git
synced 2024-11-21 13:40:47 +00:00
Add testcase for PR ada/114708
gcc/testsuite/ PR ada/114708 * gnat.dg/incomplete8.adb: New test.
This commit is contained in:
parent
e1c1f128d1
commit
e29af8de31
22
gcc/testsuite/gnat.dg/incomplete8.adb
Normal file
22
gcc/testsuite/gnat.dg/incomplete8.adb
Normal file
@ -0,0 +1,22 @@
|
||||
-- PR ada/114708
|
||||
-- Reported by Jere <jhb.chat@gmail.com>
|
||||
|
||||
-- { dg-do compile }
|
||||
|
||||
procedure Incomplete8 is
|
||||
|
||||
generic
|
||||
type Element_Type(<>);
|
||||
package Test_Incomplete_Formal is
|
||||
type Element_Access is access Element_Type;
|
||||
end Test_Incomplete_Formal;
|
||||
|
||||
type Node;
|
||||
|
||||
package P is new Test_Incomplete_Formal(Node);
|
||||
|
||||
type Node is limited null record;
|
||||
|
||||
begin
|
||||
null;
|
||||
end;
|
Loading…
Reference in New Issue
Block a user