diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/discr29.adb')
-rw-r--r-- | gcc/testsuite/gnat.dg/discr29.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/discr29.adb b/gcc/testsuite/gnat.dg/discr29.adb new file mode 100644 index 000000000..834437f6f --- /dev/null +++ b/gcc/testsuite/gnat.dg/discr29.adb @@ -0,0 +1,10 @@ +-- { dg-do compile } + +package body Discr29 is + + procedure Proc (R : out Rec3) is + begin + R := (False, Tmp); + end; + +end Discr29; |