From af0c51ac87ab2a87caa03fa108f0d164987a2764 Mon Sep 17 00:00:00 2001
From: Ben Cheng <bccheng@google.com>
Date: Thu, 28 Mar 2013 11:14:20 -0700
Subject: [GCC 4.8] Initial check-in of GCC 4.8.0

Change-Id: I0719d8a6d0f69b367a6ab6f10eb75622dbf12771
---
 .../gcc/testsuite/gfortran.dg/func_derived_1.f90   | 40 ++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 gcc-4.8/gcc/testsuite/gfortran.dg/func_derived_1.f90

(limited to 'gcc-4.8/gcc/testsuite/gfortran.dg/func_derived_1.f90')

diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/func_derived_1.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/func_derived_1.f90
new file mode 100644
index 000000000..c8820aac3
--- /dev/null
+++ b/gcc-4.8/gcc/testsuite/gfortran.dg/func_derived_1.f90
@@ -0,0 +1,40 @@
+! { dg-do run }
+! { dg-options "-std=legacy" }
+!
+! PR 17244
+! verifies that functions returning derived type work
+module m
+  type t
+     integer i
+     real x
+     character*5 c
+     integer arr(5,5)
+  end type t
+end module m
+
+use m
+type(t) :: r
+integer arr(5,5), vect(25), vect2(25)
+do i=1,25
+   vect = 0
+   vect(i) = i
+   arr = reshape (vect, shape(arr))
+   r = f(i,real(i),"HALLO",arr)
+
+   if (r%i .ne. i) call abort()
+   if (r%x .ne. real(i)) call abort()
+   if (r%c .ne. "HALLO") call abort()
+   vect2 = reshape (r%arr, shape(vect2))
+   if (any(vect2.ne.vect)) call abort()
+end do
+contains
+
+function f(i,x,c,arr)
+  type(t) :: f
+  character*5 c
+  integer arr(5,5)
+  
+  f = t(i,x,c,arr)
+end function f
+
+end
-- 
cgit v1.2.3