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

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

From-SVN: r117535

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4a4b131d3acefc2f2429edb344a2f8ddc48ca1fc..fa073c9c57ec5f4d0f0e83c357c2df8ce1706448 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -9,6 +9,7 @@
        add_sym_5s): Intrinsic subroutines are not allowed as actual
        arguments, so we remove argument actual_ok.
        (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.
        * gcc/fortran/intrinsic.h (gfc_intrinsic_actual_ok): New prototype.
        * gcc/fortran/gfortran.h (gfc_resolve_index_func): New prototype.

diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index f2185b532125876dd0360f960929a45acfdd0008..f95326f035e8c7254a3ea3fa20b8ac3c7edaaeb8 100644 (file)
--- a/gcc/fortran/intrinsic.c
+++ b/gcc/fortran/intrinsic.c
@@ -942,6 +942,8 @@ add_functions (void)
 
   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,
             gfc_check_access_func, NULL, gfc_resolve_access,
             nm, BT_CHARACTER, dc, REQUIRED, md, BT_CHARACTER, dc, REQUIRED);
@@ -1551,6 +1553,8 @@ add_functions (void)
 
   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,
             gfc_check_index, gfc_simplify_index, gfc_resolve_index_func,
             stg, BT_CHARACTER, dc, REQUIRED, ssg, BT_CHARACTER, dc, REQUIRED,