| Shih-wei Liao | e264f62 | 2010-02-10 11:10:31 -0800 | [diff] [blame^] | 1 | -- RUN: %llvmgcc -c %s |
| 2 | procedure Array_Ref is | ||||
| 3 | type A is array (Natural range <>, Natural range <>) of Boolean; | ||||
| 4 | type A_Access is access A; | ||||
| 5 | function Get (X : A_Access) return Boolean is | ||||
| 6 | begin | ||||
| 7 | return X (0, 0); | ||||
| 8 | end; | ||||
| 9 | begin | ||||
| 10 | null; | ||||
| 11 | end; | ||||