diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2010-04-23 16:16:50 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2010-04-23 16:16:50 +0000 |
| commit | 915f592197faeac0125688de07a5a8862c7e8995 (patch) | |
| tree | b4fde14957f759576a713982c6bfc9a70e5a94a5 /gcc/testsuite | |
| parent | ed0f0c0f2429d3624dd86da66dfcd3926e69a248 (diff) | |
| download | gcc-915f592197faeac0125688de07a5a8862c7e8995.zip gcc-915f592197faeac0125688de07a5a8862c7e8995.tar.gz gcc-915f592197faeac0125688de07a5a8862c7e8995.tar.bz2 | |
expr.c (expand_expr_real_1): Only use conversion between modes if both types are integral.
* expr.c (expand_expr_real_1) <VIEW_CONVERT_EXPR>: Only use conversion
between modes if both types are integral.
From-SVN: r158675
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/unchecked_convert5.adb | 22 |
2 files changed, 26 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index dacc10e..fc5f35f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2010-04-23 Eric Botcazou <ebotcazou@adacore.com> + + * gnat.dg/unchecked_convert5.adb: New test. + 2010-04-23 Richard Guenther <rguenther@suse.de> PR lto/41734 diff --git a/gcc/testsuite/gnat.dg/unchecked_convert5.adb b/gcc/testsuite/gnat.dg/unchecked_convert5.adb new file mode 100644 index 0000000..e3e4312 --- /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; |