1 files changed, 45 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/retarray.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/retarray.f90
new file mode 100644
index 000000000..a0bdc97c4
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/retarray.f90
@@ -0,0 +1,45 @@
+! Program to test functions returning arrays
+
+program testfnarray
+   implicit none
+   integer, dimension (6, 5) :: a
+   integer n
+
+! These first two shouldn't require a temporary.
+   a = 0
+   a = test(6, 5)
+   if (a(1,1) .ne. 42) call abort
+   if (a(6,5) .ne. 43) call abort
+
+   a = 0
+   a(1:6:2, 2:5) = test2()
+   if (a(1,2) .ne. 42) call abort
+   if (a(5,5) .ne. 43) call abort
+
+   a = 1
+   ! This requires a temporary
+   a = test(6, 5) - a
+   if (a(1,1) .ne. 41) call abort
+   if (a(6,5) .ne. 42) call abort
+
+   contains
+
+   function test (x, y)
+      implicit none
+      integer x, y
+      integer, dimension (1:x, 1:y) :: test
+
+      test(1, 1) = 42
+      test(x, y) = 43
+   end function
+
+   function test2 () result (foo)
+      implicit none
+      integer, dimension (3, 4) :: foo
+
+      foo(1, 1) = 42
+      foo(3, 4) = 43
+   end function
+
+end program
+