expr_func_main.adb\gnat.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gnat.dg/expr_func_main.adb

blob: 2ea5b4aa76d5af6ecd64545061fee0cfbe7f815e (plain)

--  { dg-do compile }

with Expr_Func_Pkg; use Expr_Func_Pkg;

procedure Expr_Func_Main is
   Val : Boolean := Expr_Func (456);
begin
   null;
end Expr_Func_Main;