Lines Matching refs:num3
96 TYPE(mynum) :: num1, num2, num3 variable
105 num3 = num1 + num2
106 IF (num3%num_real /= 3.0 .OR. num3%num_int /= 5) CALL abort ()
108 num3 = num1 + 5
109 IF (num3%num_real /= 1.0 .OR. num3%num_int /= 7) CALL abort ()
111 num3 = num1 + (-100.5)
112 IF (num3%num_real /= -99.5 .OR. num3%num_int /= 2) CALL abort ()
114 num3 = 42
115 num3 = -1.2
116 IF (num3%num_real /= -1.2 .OR. num3%num_int /= 42) CALL abort ()
118 real_var = num3
119 int_var = num3