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 /gcc/fortran/intrinsic.c | |
| 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
Diffstat (limited to 'gcc/fortran/intrinsic.c')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 4 |
1 files changed, 4 insertions, 0 deletions
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, |