Create test_adjoint.f90