diff --git a/fortran_examples/test.F90 b/fortran_examples/test.F90
index b534e74d6ab18acb26ef36ed77ca8a224811e00c..464ddad06cd3f0b2483dc4402e937fd7092945d4 100644
--- a/fortran_examples/test.F90
+++ b/fortran_examples/test.F90
@@ -72,6 +72,9 @@ end do
 
 
   Call qsched_run(sched, nr_threads, fun)
+  call qsched_dump_task_timers(sched, c_char_"TASKTIMERS") 
+
 call qsched_free(sched)
 call f_qsched_destroy(sched)
+
 End Program
diff --git a/src/fqsched.F90 b/src/fqsched.F90
index d08fd92ac22f97666207d9a5d85432c9a6ef2855..880e2dd22d8bae5724f985eabd3cd273dfd15f8e 100644
--- a/src/fqsched.F90
+++ b/src/fqsched.F90
@@ -132,7 +132,7 @@ Module quicksched
 
 !TODO Not supporting qsched_addtask_dynamic yet.
 
-    Subroutine qsched_ensure(s, nr_tasks, nr_res, nr_deps, nr_locks, nr_uses, size_data)
+    Subroutine qsched_ensure(s, nr_tasks, nr_res, nr_deps, nr_locks, nr_uses, size_data) BIND(C)
       Use, Intrinsic:: ISO_C_BINDING
       Implicit None
 
@@ -146,7 +146,7 @@ Module quicksched
 
     End Subroutine
 
-    Subroutine qsched_res_own(s, res, owner)
+    Subroutine qsched_res_own(s, res, owner) BIND(C)
       Use, Intrinsic:: ISO_C_BINDING
       Implicit None
 
@@ -155,6 +155,16 @@ Module quicksched
       Integer(Kind=C_INT), Intent(In), VALUE :: owner
 
     End Subroutine
+  
+    Subroutine qsched_dump_task_timers(s, filename) BIND(C)
+      Use, Intrinsic :: ISO_C_BINDING
+      Implicit None
+
+      Type(C_PTR), VALUE :: s
+      character(kind=c_char),  intent(in) :: filename(*)
+    End Subroutine
   End Interface
 
+
+
 End Module quicksched