Skip analyzer strndup test on hppa*-*-hpux*
[official-gcc.git] / gcc / testsuite / gnat.dg / inline20.adb
blobdde9a539faa84af923b61ad3ceedc05670660ea9
1 -- { dg-do compile }
2 -- { dg-options "-O -gnatn2" }
3 with Inline20_Q.IO;
4 with Inline20_R;
6 procedure Inline20 is
7 begin
8 Inline20_R.Log (Inline20_Q.IO.F);
9 end;