diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/aggr14_pkg.adb')
-rw-r--r-- | gcc/testsuite/gnat.dg/aggr14_pkg.adb | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/aggr14_pkg.adb b/gcc/testsuite/gnat.dg/aggr14_pkg.adb new file mode 100644 index 000000000..ce129601d --- /dev/null +++ b/gcc/testsuite/gnat.dg/aggr14_pkg.adb @@ -0,0 +1,16 @@ +package body Aggr14_Pkg is + + function F return A is + begin + if X /= (1, 2, 3) then + raise Program_Error; + end if; + return (1, 1, 1); + end; + + procedure Proc is + begin + X := F; + end; + +end Aggr14_Pkg; |