1-- { dg-do compile } 2 3pragma Optimize (Space); -- { dg-warning "must specify -Os" } 4 5procedure Warn8 is 6begin 7 null; 8end; 9