diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2006-10-07 15:49:35 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-10-07 13:49:35 +0000 |
| commit | 32a126b2fb8233c0b2be5506f7b913b52e88621c (patch) | |
| tree | 163c1a55fd085eac03b315112a91664890190a0e | |
| parent | 0e7e7e6e82451de69f2449372e91df1f55888be8 (diff) | |
| download | gcc-32a126b2fb8233c0b2be5506f7b913b52e88621c.zip gcc-32a126b2fb8233c0b2be5506f7b913b52e88621c.tar.gz gcc-32a126b2fb8233c0b2be5506f7b913b52e88621c.tar.bz2 | |
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
| -rw-r--r-- | gcc/fortran/ChangeLog | 1 | ||||
| -rw-r--r-- | gcc/fortran/intrinsic.c | 4 |
2 files changed, 5 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4a4b131..fa073c9 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 f2185b5..f95326f 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, |