Update test_adjoint.f90