diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/pack13_pkg.ads')
-rw-r--r-- | gcc/testsuite/gnat.dg/pack13_pkg.ads | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/pack13_pkg.ads b/gcc/testsuite/gnat.dg/pack13_pkg.ads new file mode 100644 index 000000000..afe8bec8f --- /dev/null +++ b/gcc/testsuite/gnat.dg/pack13_pkg.ads @@ -0,0 +1,17 @@ +generic + + Size : Positive; + +package Pack13_Pkg is + + type Object is private; + +private + + type Bit is range 0 .. 1; + for Bit'size use 1; + + type Object is array (1 .. Size) of Bit; + pragma Pack (Object); + +end Pack13_Pkg; |