Add failure return code if flang generates wrong result
Add stop 2 command if flang_reduction_offload fails
@@ -35,6 +35,7 @@ REAL(KIND=8), DIMENSION(x_min:x_max) :: energy
print *, " PASS "
else
print *, " FAIL "
+ stop 2
endif
! call __check_double(expected, res, 1)
