blob: 22e6c9e01b7d791576a9dd9fea452da074425a52 [file] [log] [blame]
-- { dg-do compile }
with Ada.Text_IO; use Ada.Text_IO;
procedure String_Comparison is
package Bool_IO is new Enumeration_IO (Boolean);
use Bool_IO;
begin
Put (Boolean'Image (True) = "True");
end;