Merge pull request #442 from Goddard-Fortran-Ecosystem/main

Git Flow
Goddard-Fortran-Ecosystem · Nov 1, 2023 · 0dcc807 · 0dcc807
2 parents 996e334 + 4d16884
commit 0dcc807
Showing 1 changed file with 1 addition and 9 deletions.
diff --git 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