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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 82f816d30c0e0c069ef06c2ac1daf37923bb544b..36ab4716312a688ac8c891b722f6d793bbef65eb 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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

diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index b46a5b21b79ae44e8c3bd303413ad5de5bac9b9b..174109252450f278a9f0d4781b33c4f1282edc42 100644 (file)
--- a/gcc/fortran/intrinsic.c
+++ b/gcc/fortran/intrinsic.c
@@ -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,

diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h
index 4e91b822b227adcd9563b3253ebb19a523ef1c6a..971cf7c9febcd70188e670b65d1c17123b2afe60 100644 (file)
--- a/gcc/fortran/intrinsic.h
+++ b/gcc/fortran/intrinsic.h
@@ -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 *);

diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index 124558efa5d7d0df6fea93b4ab73c68a15ffe73d..6a81dc32eca355bd092a5f536a56c67754ed7f06 100644 (file)
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -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)
 {