Fix a decl to match the calls to it.

	* trans-decl.c (gfc_build_builtin_function_decls): Correct number of
	arguments to caf_init.

From-SVN: r211131

gcc/fortran/ChangeLog

+2014-06-02  Bernd Schmidt  <bernds@codesourcery.com>
+
+	* trans-decl.c (gfc_build_builtin_function_decls): Correct number of
+	arguments to caf_init.
+
 2014-05-26  Tobias Burnus  <burnus@net-b.de>
 
 	* gfortran.texi (Project Status): Fix broken link.

gcc/fortran/trans-decl.c

@@ -3260,7 +3260,7 @@ gfc_build_builtin_function_decls (void)
 
       gfor_fndecl_caf_init = gfc_build_library_function_decl (
 		   get_identifier (PREFIX("caf_init")),  void_type_node,
-		   4, pint_type, pppchar_type, pint_type, pint_type);
+		   2, pint_type, pppchar_type);
 
       gfor_fndecl_caf_finalize = gfc_build_library_function_decl (
 	get_identifier (PREFIX("caf_finalize")), void_type_node, 0);