| Duncan Sands | 2b5243d | 2010-11-25 21:21:59 +0000 | [diff] [blame] | 1 | -- RUN: %llvmgcc -S %s -I%p/Support |
| Duncan Sands | 89b1f3a | 2007-05-02 07:43:14 +0000 | [diff] [blame] | 2 | package body Unc_Constructor is |
| 3 | procedure P (X : A) is | ||||
| 4 | begin | ||||
| 5 | if X = A0 then | ||||
| 6 | null; | ||||
| 7 | end if; | ||||
| 8 | end; | ||||
| 9 | end; | ||||