re PR fortran/63252 (tree_class_check_failed)

2014-09-13  Tobias Burnus  <burnus@net-b.de>

        PR fortran/63252
        * trans-decl.c (gfc_build_builtin_function_decls): Fix
        caf_unlock declaration.

From-SVN: r215236

gcc/fortran/ChangeLog

+2014-09-13  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/63252
+	* trans-decl.c (gfc_build_builtin_function_decls): Fix
+	caf_unlock declaration.
+
 2014-09-12  Joseph Myers  <joseph@codesourcery.com>
 
 	* trans-types.c (gfc_init_kinds): Check

gcc/fortran/trans-decl.c

@@ -3421,7 +3421,7 @@ gfc_build_builtin_function_decls (void)
 
       gfor_fndecl_caf_unlock = gfc_build_library_function_decl_with_spec (
 	get_identifier (PREFIX("caf_unlock")), "R..WW",
-	void_type_node, 7, pvoid_type_node, size_type_node, integer_type_node,
+	void_type_node, 6, pvoid_type_node, size_type_node, integer_type_node,
 	pint_type, pchar_type_node, integer_type_node);
 
       gfor_fndecl_co_max = gfc_build_library_function_decl_with_spec (