当前位置: 代码迷 >> 其他开发语言 >> Ada程序编译不过 提醒 Other is undefined
  详细解决方案

Ada程序编译不过 提醒 Other is undefined

热度:2303   发布时间:2013-02-26 00:00:00.0
Ada程序编译不过 提示 Other is undefined
--filename:comp.adb
WITH Ada.Text_IO; USE Ada.Text_IO;
WITH Ada.Integer_Text_IO; USE Ada.Integer_Text_IO;

PROCEDURE Comp IS
   FUNCTION Compare (A:Integer; B:Integer) RETURN Integer IS
   BEGIN
      RETURN (A - B);
   END Compare;
   X,Y,Result:Integer;
BEGIN
   Put ("Enter A:"); Get (X);
   Put ("Enter B:"); Get (Y);
      Result :=Compare (X,Y);
      CASE Result IS
         WHEN Integer'First..-1 =>Put_Line ("A<B.");
         WHEN 0 =>Put_Line ("A = B.");
         WHEN 1..Integer'Last =>Put_Line ("A>B.");
         WHEN Other=>NULL;
      END CASE;
编译器错误提示:19:15: "Other is undefined"

------解决方案--------------------------------------------------------
WHEN Other=>NULL;
=================
WHEN Others=>NULL;
  相关解决方案