1 -- RUN: %llvmgcc -S %s -I%p/Support 2 package body Global_Constant is 3 begin 4 raise An_Error; 5 end; 6