aboutsummaryrefslogtreecommitdiffstats
path: root/test/FrontendAda/switch.adb
blob: f214bca2ec420b3209c633aa51a8e653c172d279 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
-- RUN: %llvmgcc -c %s
function Switch (N : Integer) return Integer is
begin
   case N is
      when Integer'First .. -1 =>
         return -1;
      when 0 =>
         return 0;
      when others =>
         return 1;
   end case;
end;