prif_init_test: Fix for flang-latest with native PRIF

Author: bonachea

test/prif_init_test.F90

@@ -42,7 +42,11 @@ function check_caffeination() result(test_diagnosis)
       first_pass = .false.
       write_memo: &
       block
+#if HAVE_MULTI_IMAGE
+        integer, parameter :: successful_initiation = PRIF_STAT_ALREADY_INIT
+#else
         integer, parameter :: successful_initiation = 0
+#endif
         integer init_exit_code
 
         call prif_init(init_exit_code)