1-- { dg-do compile } 2 3procedure Test_Exp is 4 function X return Boolean is 5 (Integer'Size = 32) or else (Float'Size = 32); -- { dg-error "expression function must be enclosed in parentheses" } 6begin 7 null; 8end; 9