diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/assign_from_packed.adb')
-rw-r--r-- | gcc/testsuite/gnat.dg/assign_from_packed.adb | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/assign_from_packed.adb b/gcc/testsuite/gnat.dg/assign_from_packed.adb new file mode 100644 index 000000000..24399a011 --- /dev/null +++ b/gcc/testsuite/gnat.dg/assign_from_packed.adb @@ -0,0 +1,15 @@ +-- { dg-do run } + +with assign_from_packed_pixels; +use assign_from_packed_pixels; + +procedure assign_from_packed is + + A : Integer := Minus_One; + Pos : Position; +begin + Pos := Pix.Pos; + if A /= Minus_One then + raise Program_Error; + end if; +end; |