Formulate more precise work-around.

* The offending behaviour indeed starts at pgfortran 14.1.

examples/row2col_f.f90

@@ -53,7 +53,7 @@ PROGRAM test_redist_collection
        xt_redist, xt_redist_p2p_new, xt_redist_delete, xt_redist_s_exchange
   USE iso_c_binding, ONLY: c_int
   ! older PGI compilers do not handle generic interface correctly
-#if defined __PGI && __PGIC__ == 15
+#if defined __PGI && ( __PGIC__ == 15 || __PGIC__ == 14 )
   USE xt_redist_real_sp, ONLY: xt_redist_s_exchange
   USE xt_redist_real_dp, ONLY: xt_redist_s_exchange
 #endif

examples/unstruct_halo_exchange_f.f90

@@ -107,7 +107,7 @@ PROGRAM unstruct_halo_exchang
        xt_redist, xt_redist_p2p_off_new, xt_redist_delete, &
        xt_redist_s_exchange, xi => xt_int_kind
   ! PGI compilers do not handle generic interface correctly
-#if defined __PGI && __PGIC__ == 15
+#if defined __PGI && ( __PGIC__ == 15 || __PGIC__ == 14 )
   USE xt_redist_real_sp, ONLY: xt_redist_s_exchange
   USE xt_redist_real_dp, ONLY: xt_redist_s_exchange
 #endif

perf/perf_sparse_array_gather.f90

@@ -10,7 +10,7 @@ PROGRAM perf_sparse_array_gather
   USE iso_c_binding, ONLY: c_int
   USE mpi
   ! older PGI compilers do not handle generic interface correctly
-#if defined __PGI && __PGIC__ == 15
+#if defined __PGI && ( __PGIC__ == 15 || __PGIC__ == 14 )
   USE xt_redist_real_sp, ONLY: xt_redist_s_exchange
   USE xt_redist_real_dp, ONLY: xt_redist_s_exchange
 #endif

tests/test_redist_repeat_f.f90

@@ -54,7 +54,7 @@ PROGRAM test_redist_repeat
        xt_redist_repeat_new, xt_redist_delete, &
        xt_redist_s_exchange, xt_redist_a_exchange, &
        xt_request
-#if defined __PGI && __PGIC__ == 15
+#if defined __PGI && ( __PGIC__ == 15 || __PGIC__ == 14 )
   USE xt_redist_real_sp, ONLY: xt_redist_s_exchange, xt_redist_a_exchange
   USE xt_redist_real_dp, ONLY: xt_redist_s_exchange, xt_redist_a_exchange
 #endif