Revert r244448

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@244454 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 0 insertions, 12 deletions

diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c
index cd4a8d7588b..128d47d0fa3 100644
--- a/gcc/fortran/trans-const.c
+++ b/gcc/fortran/trans-const.c
@@ -206,18 +206,6 @@ gfc_conv_mpz_to_tree (mpz_t i, int kind)
   return wide_int_to_tree (gfc_get_int_type (kind), val);
 }
 
-
-/* Convert a GMP integer into a tree node of type given by the type
-   argument.  */
-
-tree
-gfc_conv_mpz_to_tree_type (mpz_t i, const tree type)
-{
-  const wide_int val = wi::from_mpz (type, i, true);
-  return wide_int_to_tree (type, val);
-}
-
-
 /* Converts a backend tree into a GMP integer.  */
 
 void