4 ! Test fix for PR18022.
6 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
8 program assign_func_dtcomp
14 type (mytype
), dimension (4) :: z
20 real, dimension (4) :: a
= (/1.,2.,3.,4./)
21 real, dimension (4) :: b
= (/5.,6.,7.,8./)
24 ! Test the original problem is fixed.
29 if (any(z
%x
.ne
.a
).or
.any(z
%y
.ne
.b
)) call abort ()
31 ! Make sure we did not break anything on the way.
35 if (any(w
%x
.ne
.b
).or
.any(a
.ne
.b
)) call abort ()
39 function foo (v
) result (ans
)
40 real, dimension (:), intent(in
) :: v
41 real, dimension (size(v
)) :: ans
46 end program assign_func_dtcomp