diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-12-10 14:06:15 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-12-10 14:06:15 +0000 |
| commit | d747d0057c694f600da48ff11a0cf6b10aea9dbf (patch) | |
| tree | 6b85bdf8dd69f0b774a2373b3cacb5e86e94d32a /gcc/testsuite/gnat.dg/array25_pkg.adb | |
| parent | 6b4f890601a9bb1ff803cef04ee5779d49befb97 (diff) | |
| download | gcc-d747d0057c694f600da48ff11a0cf6b10aea9dbf.zip gcc-d747d0057c694f600da48ff11a0cf6b10aea9dbf.tar.gz gcc-d747d0057c694f600da48ff11a0cf6b10aea9dbf.tar.bz2 | |
trans.c (Call_to_gnu): Remove guard for NULL_EXPR.
* gcc-interface/trans.c (Call_to_gnu): Remove guard for NULL_EXPR.
* gcc-interface/utils2.c (gnat_rewrite_reference) <ERROR_MARK>: Return
the reference unmodified.
<NULL_EXPR>: New case. Likewise.
From-SVN: r231513
Diffstat (limited to 'gcc/testsuite/gnat.dg/array25_pkg.adb')
| -rw-r--r-- | gcc/testsuite/gnat.dg/array25_pkg.adb | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/array25_pkg.adb b/gcc/testsuite/gnat.dg/array25_pkg.adb new file mode 100644 index 0000000..9bb2fa5 --- /dev/null +++ b/gcc/testsuite/gnat.dg/array25_pkg.adb @@ -0,0 +1,15 @@ +package body Array25_Pkg is + + procedure Get_Inner (A : out Arr1) is + begin + null; + end; + + procedure Get (A : out Arr2) is + begin + for I in Arr2'Range loop + Get_Inner (A (I).Data); + end loop; + end; + +end Array25_Pkg; |