diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/loop_optimization4_pkg.ads')
| -rw-r--r-- | gcc/testsuite/gnat.dg/loop_optimization4_pkg.ads | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/loop_optimization4_pkg.ads b/gcc/testsuite/gnat.dg/loop_optimization4_pkg.ads new file mode 100644 index 000000000..a07c4e568 --- /dev/null +++ b/gcc/testsuite/gnat.dg/loop_optimization4_pkg.ads @@ -0,0 +1,9 @@ +package Loop_Optimization4_Pkg is + + Max_Debug_Buffer_Len : Natural := 8 * 1024; + Debug_Buffer : String (1 .. Max_Debug_Buffer_Len); + Debug_Buffer_Len : Natural range 0 .. Max_Debug_Buffer_Len; + + procedure Add (Phrase : String); + +end Loop_Optimization4_Pkg; |