diff --git a/src/pfunit/pFUnit.F90 b/src/pfunit/pFUnit.F90
index 2d987195..f319c6e7 100644
--- a/src/pfunit/pFUnit.F90
+++ b/src/pfunit/pFUnit.F90
@@ -104,17 +104,9 @@ logical function run(load_tests) result(status)
       type(TestResult) :: r
       class(ParallelContext), allocatable :: c
 
-      c = get_context()
+      allocate(c, source=get_context())
       status = generic_run(load_tests, c)
 
-!!!  !!$      options = parse()
-
-!!$      suite = load_tests()
-!!$      allocate(runner, source=TestRunner(ResultPrinter(OUTPUT_UNIT)))
-!!$      c = get_context()
-!!$      r = runner%run(suite, c)
-!!$      status = r%wasSuccessful()
-
    end function run