text_io中的ADA类型定义给出警告项未初始化

Question

我有一个类型定义

type FLOAT_32 is digits 6;
for type FLOAT_32' size use 32;

在文本IO中使用时

package FLOAT_IO is new Text_IO.Float_IO(Float_32);

我收到警告：ITEM未初始化。

我想摆脱这个警告，因为我有一个INT_32定义的

type INTEGER_32 is range - (2**31)..2**31-1;
for type INTEGER_32' size use 32;

并且包声明没有警告

package INT_IO is new Text_IO.Integer_IO(Integer_32);

任何帮助？

编辑根据评论：

这是大型系统的一部分 - 我继承了代码。我无法发布整个来源。编译器是绿山adamulti 2000。

类型定义位于名为System_Types.ads

的文件中

type Boolean_8 is new boolean;
for Boolean_8' use size 8;

type Boolean_16 is new boolean;
for Boolean_16' use size 16;

type Boolean_32 is new boolean;
for Boolean_32' use size 32;

type FLOAT_32 is digits 6;
for type FLOAT_32' size use 32;
type FLOAT_64 is digits 15;
for type FLOAT_64' size use 64;
for type FLOAT_64' alignment use 8;

--INTEGER_2 to Integer_64 is defined here in original
type INTEGER_32 is range - (2**31)..2**31-1;
for type INTEGER_32' size use 32;

我将调用source main.adb

with System_Types; use System_Types;

package body main is
    package FLOAT_IO is new Text_IO.Float_IO(Float_32);
    package INT_IO is new Text_IO.Integer_IO(Integer_32);
end main

我希望这会有所帮助