1 -- { dg-do run { target hppa*-*-* sparc*-*-* powerpc*-*-* } }
3 with Unchecked_Conversion;
5 procedure Unchecked_Convert5 is
7 subtype c_1 is string(1..1);
9 function int2c1 is -- { dg-warning "different sizes" }
10 new unchecked_conversion (source => integer, target => c_1);
18 if c1 (1) /= ASCII.Nul then