[Patch, fortran] PR24174 real(10) and complex(10) array IO broken.

[FX Coudert]

> PING**2

It looks OK. Only one comment...

      gfc_build_library_function_decl (get_identifier
  				     (PREFIX("transfer_array")),
-				     void_type_node, 2, pvoid_type_node,
+				     void_type_node, 3, pvoid_type_node,
+				     gfc_int4_type_node,
  				     gfc_charlen_type_node);

contradicts

  void
-transfer_array (gfc_array_char *desc, gfc_charlen_type charlen)
+transfer_array (gfc_array_char *desc, int kind, gfc_charlen_type charlen)

since a gfc_int4_type_node might not always be an int. Could you use 
gfc_c_int_type_node?

FX