OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

intrinsic.h (gfc_simplify_mvbits): Remove. 

* intrinsic.h (gfc_simplify_mvbits): Remove.
	* simplify.c (gfc_simplify_mvbits): Remove.
	* intrinsic.c (add_subroutines): Remove reference to
	gfc_simplify_mvbits.

From-SVN: r227502
This commit is contained in:
Francois-Xavier Coudert 2015-09-04 19:36:57 +00:00 committed by François-Xavier Coudert
parent 63019f0c1a
commit 5e229618cd
4 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
2015-09-04 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* intrinsic.h (gfc_simplify_mvbits): Remove.
* simplify.c (gfc_simplify_mvbits): Remove.
* intrinsic.c (add_subroutines): Remove reference to
gfc_simplify_mvbits.
2015-09-04 Manuel López-Ibáñez <manu@gcc.gnu.org>
PR fortran/67429

3
gcc/fortran/intrinsic.c
View File

@ -3290,8 +3290,7 @@ add_subroutines (void)
t, BT_UNKNOWN, 0, REQUIRED, INTENT_OUT);
add_sym_5s ("mvbits", GFC_ISYM_MVBITS, CLASS_ELEMENTAL, BT_UNKNOWN, 0,
GFC_STD_F95, gfc_check_mvbits, gfc_simplify_mvbits,
gfc_resolve_mvbits,
GFC_STD_F95, gfc_check_mvbits, NULL, gfc_resolve_mvbits,
f, BT_INTEGER, di, REQUIRED, INTENT_IN,
fp, BT_INTEGER, di, REQUIRED, INTENT_IN,
ln, BT_INTEGER, di, REQUIRED, INTENT_IN,

2
gcc/fortran/intrinsic.h
View File

@ -345,8 +345,6 @@ gfc_expr *gfc_simplify_maxexponent (gfc_expr *);
gfc_expr *gfc_simplify_minexponent (gfc_expr *);
gfc_expr *gfc_simplify_mod (gfc_expr *, gfc_expr *);
gfc_expr *gfc_simplify_modulo (gfc_expr *, gfc_expr *);
gfc_expr *gfc_simplify_mvbits (gfc_expr *, gfc_expr *, gfc_expr *, gfc_expr *,
gfc_expr *);
gfc_expr *gfc_simplify_nearest (gfc_expr *, gfc_expr *);
gfc_expr *gfc_simplify_new_line (gfc_expr *);
gfc_expr *gfc_simplify_nint (gfc_expr *, gfc_expr *);

12
gcc/fortran/simplify.c
View File

@ -4443,18 +4443,6 @@ gfc_simplify_modulo (gfc_expr *a, gfc_expr *p)
}
/* Exists for the sole purpose of consistency with other intrinsics. */
gfc_expr *
gfc_simplify_mvbits (gfc_expr *f ATTRIBUTE_UNUSED,
gfc_expr *fp ATTRIBUTE_UNUSED,
gfc_expr *l ATTRIBUTE_UNUSED,
gfc_expr *to ATTRIBUTE_UNUSED,
gfc_expr *tp ATTRIBUTE_UNUSED)
{
return NULL;
}
gfc_expr *
gfc_simplify_nearest (gfc_expr *x, gfc_expr *s)
{