| Duncan Sands | 1aeac02 | 2009-03-12 11:56:12 +0000 | [diff] [blame] | 1 | -- RUN: %llvmgcc -S -O2 %s -I%p/Support -o - | grep 6899714 |
| Duncan Sands | 411c285 | 2009-02-25 18:10:49 +0000 | [diff] [blame] | 2 | package body Element_Copy is |
| 3 | function F return VariableSizedField is | ||||
| 4 | X : VariableSizedField; | ||||
| 5 | begin | ||||
| 6 | return X; | ||||
| 7 | end; | ||||
| 8 | end; | ||||