gcc-4.9/gcc/testsuite/gnat.dg/return3.adb


1
2
3
4
5
6
7
8
9

-- { dg-do compile { target *-*-linux* } }
-- { dg-options "-gdwarf-2" }

procedure Return3 is
begin
  return;
end;

-- { dg-final { scan-assembler "loc 1 6" } }