diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/test_bounded.adb')
-rw-r--r-- | gcc/testsuite/gnat.dg/test_bounded.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/test_bounded.adb b/gcc/testsuite/gnat.dg/test_bounded.adb new file mode 100644 index 000000000..29d94f48e --- /dev/null +++ b/gcc/testsuite/gnat.dg/test_bounded.adb @@ -0,0 +1,13 @@ +-- { dg-do run } +-- { dg-options "-gnatws" } + +procedure Test_Bounded is + type Bounded (Length : Natural := 0) is + record + S : String (1..Length); + end record; + type Ref is access all Bounded; + X : Ref := new Bounded; +begin + null; +end Test_Bounded; |