blob: 28644cd015065cf5dc5ea4ee127434a8515d17a5 [file] [log] [blame]
-- { dg-do compile }
package Integer_Value is
X : constant Integer :=
Integer'Integer_Value (12.8); -- { dg-error "fixed-point type" }
end Integer_Value;