Create test_interchange_sort.f90