2016-11-21 Thomas Preud'homme <thomas.preudhomme@arm.com>
[official-gcc.git] / gcc / testsuite / gnat.dg / specs / integer_value.ads
blob6e9c1b51f3201cbf5867a2c52d87c1bc1c3b487e
1 -- { dg-do compile }
2 package Integer_Value is
3 X : constant Integer :=
4 Integer'Integer_Value (12.8); -- { dg-error "fixed-point type" "" }
5 end Integer_Value;