Skip analyzer strndup test on hppa*-*-hpux*

[official-gcc.git] / gcc / testsuite / gnat.dg / thunk1.adb

-- { dg-do run }

with Thunk1_Pkg1; use Thunk1_Pkg1;

procedure Thunk1 is
  D: Derived;
begin
  D.Op ("Message");
end;