diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/unchecked_convert5.adb')
-rw-r--r-- | gcc/testsuite/gnat.dg/unchecked_convert5.adb | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/unchecked_convert5.adb b/gcc/testsuite/gnat.dg/unchecked_convert5.adb new file mode 100644 index 000000000..e3e4312d7 --- /dev/null +++ b/gcc/testsuite/gnat.dg/unchecked_convert5.adb @@ -0,0 +1,22 @@ +-- { dg-do run { target hppa*-*-* sparc*-*-* powerpc*-*-* } } + +with Unchecked_Conversion; + +procedure Unchecked_Convert5 is + + subtype c_1 is string(1..1); + + function int2c1 is -- { dg-warning "different sizes" } + new unchecked_conversion (source => integer, target => c_1); + + c1 : c_1; + +begin + + c1 := int2c1(16#12#); + + if c1 (1) /= ASCII.Nul then + raise Program_Error; + end if; + +end; |