gcc/testsuite/gnat.dg/constant2_pkg2.adb


1
2
3
4
5
6
7
8
9
10
11
12
13

package body Constant2_Pkg2 is

  function F1 return Boolean is
  begin
    return False;
  end;

  function F2 return Boolean is
  begin
    return False;
  end;

end Constant2_Pkg2;