diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/self_aggregate_with_zeros.adb')
-rw-r--r-- | gcc/testsuite/gnat.dg/self_aggregate_with_zeros.adb | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/self_aggregate_with_zeros.adb b/gcc/testsuite/gnat.dg/self_aggregate_with_zeros.adb new file mode 100644 index 000000000..f774fcdf6 --- /dev/null +++ b/gcc/testsuite/gnat.dg/self_aggregate_with_zeros.adb @@ -0,0 +1,19 @@ +-- { dg-do run } + +procedure self_aggregate_with_zeros is + + type Sensor is record + Value : Natural; + A, B, C, D, E, F, G, H, I, J, K, L, M : Natural; + end record; + + Pressure : Sensor; + +begin + Pressure.Value := 256; + Pressure := (Pressure.Value, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); + + if Pressure.Value /= 256 then + raise Program_Error; + end if; +end; |