diff --git a/fortran_examples/test.F90 b/fortran_examples/test.F90
index e8d0182359fcbcc8cb77248d45ddbd4912025468..a8eb96244333acc8469805fcaa667da57762ef7e 100644
--- a/fortran_examples/test.F90
+++ b/fortran_examples/test.F90
@@ -53,5 +53,6 @@ end do
 
 
   Call qsched_run(sched, nr_threads, fun)
+call qsched_free(sched)
 call f_qsched_destroy(sched)
 End Program