Chris Lattner | e10988d | 2007-04-03 21:46:22 +0000 | [diff] [blame^] | 1 | -- RUN: %llvmgcc -c %s -o /dev/null |
2 | -- RUN: %llvmgcc -c %s -O2 -o /dev/null | ||||
3 | package body Fat_Fields is | ||||
4 | procedure Proc is | ||||
5 | begin | ||||
6 | if P = null then | ||||
7 | null; | ||||
8 | end if; | ||||
9 | end; | ||||
10 | end; |