Commit 32a126b2 by Francois-Xavier Coudert Committed by François-Xavier Coudert

intrinsic.c (add_functions): Add comments for gfc_check_access_func and gfc_resolve_index_func.

	* gcc/fortran/intrinsic.c (add_functions): Add comments for
	gfc_check_access_func and gfc_resolve_index_func.

From-SVN: r117535
parent 0e7e7e6e
...@@ -9,6 +9,7 @@ ...@@ -9,6 +9,7 @@
add_sym_5s): Intrinsic subroutines are not allowed as actual add_sym_5s): Intrinsic subroutines are not allowed as actual
arguments, so we remove argument actual_ok. arguments, so we remove argument actual_ok.
(add_functions): Correct the values for actual_ok of all intrinsics. (add_functions): Correct the values for actual_ok of all intrinsics.
Add comments for gfc_check_access_func and gfc_resolve_index_func.
(add_subroutines): Remove the actual_ok argument, which was never used. (add_subroutines): Remove the actual_ok argument, which was never used.
* gcc/fortran/intrinsic.h (gfc_intrinsic_actual_ok): New prototype. * gcc/fortran/intrinsic.h (gfc_intrinsic_actual_ok): New prototype.
* gcc/fortran/gfortran.h (gfc_resolve_index_func): New prototype. * gcc/fortran/gfortran.h (gfc_resolve_index_func): New prototype.
......
...@@ -942,6 +942,8 @@ add_functions (void) ...@@ -942,6 +942,8 @@ add_functions (void)
make_generic ("abs", GFC_ISYM_ABS, GFC_STD_F77); make_generic ("abs", GFC_ISYM_ABS, GFC_STD_F77);
/* The checking function for ACCESS is called gfc_check_access_func
because the name gfc_check_access is already used in module.c. */
add_sym_2 ("access", 0, 0, BT_INTEGER, di, GFC_STD_GNU, add_sym_2 ("access", 0, 0, BT_INTEGER, di, GFC_STD_GNU,
gfc_check_access_func, NULL, gfc_resolve_access, gfc_check_access_func, NULL, gfc_resolve_access,
nm, BT_CHARACTER, dc, REQUIRED, md, BT_CHARACTER, dc, REQUIRED); nm, BT_CHARACTER, dc, REQUIRED, md, BT_CHARACTER, dc, REQUIRED);
...@@ -1551,6 +1553,8 @@ add_functions (void) ...@@ -1551,6 +1553,8 @@ add_functions (void)
make_generic ("ierrno", GFC_ISYM_IERRNO, GFC_STD_GNU); make_generic ("ierrno", GFC_ISYM_IERRNO, GFC_STD_GNU);
/* The resolution function for INDEX is called gfc_resolve_index_func
because the name gfc_resolve_index is already used in resolve.c. */
add_sym_3 ("index", 1, 1, BT_INTEGER, di, GFC_STD_F77, add_sym_3 ("index", 1, 1, BT_INTEGER, di, GFC_STD_F77,
gfc_check_index, gfc_simplify_index, gfc_resolve_index_func, gfc_check_index, gfc_simplify_index, gfc_resolve_index_func,
stg, BT_CHARACTER, dc, REQUIRED, ssg, BT_CHARACTER, dc, REQUIRED, stg, BT_CHARACTER, dc, REQUIRED, ssg, BT_CHARACTER, dc, REQUIRED,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment