procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

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

From-SVN: r117535
This commit is contained in:
Francois-Xavier Coudert 2006-10-07 15:49:35 +02:00 • committed by François-Xavier Coudert
parent 0e7e7e6e82
commit 32a126b2fb
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
gcc/fortran/ChangeLog
View file

@ -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.

4
gcc/fortran/intrinsic.c
View file

@ -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,