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()