4 ! Check that we do create a temporary for C(1) below in the assignment
11 type(t
), dimension(5) :: b
, c
17 if (any(c
%c
/= 20)) STOP 1
21 elemental
function plus(lhs
, rhs
)
22 type(t
), intent(in
) :: lhs
, rhs
24 plus
%c
= lhs
%c
+ rhs
%c