From 32a126b2fb8233c0b2be5506f7b913b52e88621c Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Sat, 7 Oct 2006 15:49:35 +0200 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 1 + gcc/fortran/intrinsic.c | 4 ++++ 2 files changed, 5 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4a4b131d3ac..fa073c9c57e 100644 --- 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 f2185b53212..f95326f035e 100644 --- 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,