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