diff --git a/src/dag_implementation.F90 b/src/dag_implementation.f90
similarity index 99%
rename from src/dag_implementation.F90
rename to src/dag_implementation.f90
index e5c843e..2252fbc 100644
--- a/src/dag_implementation.F90
+++ b/src/dag_implementation.f90
@@ -148,11 +148,7 @@
 
     if (istat==-1) deallocate(order)
 
-#ifndef FORD
   contains
-#else
-    end procedure ! work around ford documentation generator bug
-#endif
 
 !*******************************************************************************
 
@@ -186,9 +182,7 @@ recursive subroutine dfs(v)
 
     end subroutine dfs
 
-#ifndef FORD
   end procedure dag_toposort
-#endif
 
 !*******************************************************************************