Fix a harmless warning

Author: bonachea

test/prif_co_max_test.F90

@@ -175,7 +175,7 @@ function check_character() result(diag)
             , "that    ","is      " &
             , "the     ","question"]
         integer :: me, ni, i
-        character(len=len(values)) :: my_val, expected
+        character(len=len(values)) :: my_val
 
         call prif_this_image_no_coarray(this_image=me)
         call prif_num_images(ni)