3 ! verifies that functions returning derived type work
15 integer arr(5,5), vect(25), vect2(25)
19 arr = reshape (vect, shape(arr))
20 r = f(i,real(i),"HALLO",arr)
22 if (r%i .ne. i) call abort()
23 if (r%x .ne. real(i)) call abort()
24 if (r%c .ne. "HALLO") call abort()
25 vect2 = reshape (r%arr, shape(vect2))
26 if (any(vect2.ne.vect)) call abort()
40 ! { dg-final { cleanup-modules "m" } }