PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / warn9.adb
blob38f9d71e4101e3967830f449f8859892513e74a9
1 -- { dg-do compile }
2 -- { dg-options "-Wuninitialized" }
4 pragma Warnings (Off);
6 function Warn9 return Integer is
7 I : Integer;
8 begin
9 return I;
10 end;