diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/class_wide3.adb')
| -rw-r--r-- | gcc/testsuite/gnat.dg/class_wide3.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/class_wide3.adb b/gcc/testsuite/gnat.dg/class_wide3.adb new file mode 100644 index 00000000000..c177029f29d --- /dev/null +++ b/gcc/testsuite/gnat.dg/class_wide3.adb @@ -0,0 +1,8 @@ +with Ada.Text_IO; use Ada.Text_IO; +with Class_Wide3_Pkg; use Class_Wide3_Pkg; + +procedure Class_Wide3 is + DC : Disc_Child := (N => 1, I => 3, J => 5); +begin + DC.Put_Line; +end Class_Wide3; |