summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/string_comparison.adb
blob: 22e6c9e01b7d791576a9dd9fea452da074425a52 (plain)
1
2
3
4
5
6
7
8
9
10
-- { 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;