6 lines
98 B
Ada
6 lines
98 B
Ada
-- RUN: %llvmgcc -S %s -I%p/Support
|
|
package body Global_Constant is
|
|
begin
|
|
raise An_Error;
|
|
end;
|