diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-16 08:06:48 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-16 08:06:48 +0000 |
| commit | 8cd86cc51899301ed1dcff59dcaa1f4a993edc2f (patch) | |
| tree | 25013f00a2aa3c68380344b98ed8d3c6df971571 /gcc/testsuite/gnat.dg/addr2.adb | |
| parent | 8ef684b36f7cae5d5e7feaa0c111c8a40c6ba6aa (diff) | |
| download | gcc-8cd86cc51899301ed1dcff59dcaa1f4a993edc2f.tar.gz | |
Add test cases.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127533 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gnat.dg/addr2.adb')
| -rw-r--r-- | gcc/testsuite/gnat.dg/addr2.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/addr2.adb b/gcc/testsuite/gnat.dg/addr2.adb new file mode 100644 index 00000000000..15d51e30dc5 --- /dev/null +++ b/gcc/testsuite/gnat.dg/addr2.adb @@ -0,0 +1,10 @@ +-- { dg-do run } + +with addr2_p; use addr2_p; +procedure addr2 is +begin + Process (B1); + Process (Blk => B1); + Process (B2); + Process (Blk => B2); +end; |