gcc/testsuite/gnat.dg/prot5_pkg.adb

   1 package body Prot5_Pkg is
   2    protected body P is
   3       function Get_Data return Integer is
   4       begin
   5          return Data;
   6       end Get_Data;
   7
   8       procedure Proc (A : Integer := Get_Data) is
   9       begin
  10          Data := A * 2;
  11       end Proc;
  12    end P;
  13 end Prot5_Pkg;