| Chris Lattner | e10988d | 2007-04-03 21:46:22 +0000 | [diff] [blame^] | 1 | -- RUN: %llvmgcc -c %s -o /dev/null |
| 2 | function Switch (N : Integer) return Integer is | ||||
| 3 | begin | ||||
| 4 | case N is | ||||
| 5 | when Integer'First .. -1 => | ||||
| 6 | return -1; | ||||
| 7 | when 0 => | ||||
| 8 | return 0; | ||||
| 9 | when others => | ||||
| 10 | return 1; | ||||
| 11 | end case; | ||||
| 12 | end; | ||||