diff --git a/test/caf_stop_test.f90 b/test/caf_stop_test.f90
index 048405fb9..94edd094f 100644
--- a/test/caf_stop_test.f90
+++ b/test/caf_stop_test.f90
@@ -3,14 +3,14 @@ module caf_stop_test
 
     implicit none
     private
-    public :: test_caf_this_image
+    public :: test_prif_this_image
 
 contains
-    function test_caf_this_image() result(tests)
+    function test_prif_this_image() result(tests)
         type(test_item_t) :: tests
 
         tests = describe( &
-                "A program that executes the caf_stop function", &
+                "A program that executes the prif_stop function", &
                 [ it("exits with a zero exitstat when the program omits the stop code", exit_with_no_stop_code) &
                  ,it("prints an integer stop code and exits with exitstat equal to the stop code", exit_with_integer_stop_code) &
                  ,it("prints a character stop code and exits with a non-zero existat", exit_with_character_stop_code) &