summaryrefslogtreecommitdiff
path: root/libgfortran/generated/set_exponent_r10.c
diff options
context:
space:
mode:
authorjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>2016-12-19 16:20:09 +0000
committerjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>2016-12-19 16:20:09 +0000
commitf325b94daebaac9705149d22c0ad1e9afee25b44 (patch)
tree0b3e2a248ff3023e5cfd7d377449f03d50f300a5 /libgfortran/generated/set_exponent_r10.c
parentf080a3625c9866c2beae22f52ab5a09874229d0c (diff)
downloadgcc-f325b94daebaac9705149d22c0ad1e9afee25b44.tar.gz
Remove unused functions, take 2.
2016-12-19 Janne Blomqvist <jb@gcc.gnu.org> * Actually remove files that should have been removed by r243799. This line, and those below, will be ignored-- M libgfortran/ChangeLog D libgfortran/generated/exponent_r10.c D libgfortran/generated/exponent_r16.c D libgfortran/generated/exponent_r4.c D libgfortran/generated/exponent_r8.c D libgfortran/generated/fraction_r10.c D libgfortran/generated/fraction_r16.c D libgfortran/generated/fraction_r4.c D libgfortran/generated/fraction_r8.c D libgfortran/generated/nearest_r10.c D libgfortran/generated/nearest_r16.c D libgfortran/generated/nearest_r4.c D libgfortran/generated/nearest_r8.c D libgfortran/generated/rrspacing_r10.c D libgfortran/generated/rrspacing_r16.c D libgfortran/generated/rrspacing_r4.c D libgfortran/generated/rrspacing_r8.c D libgfortran/generated/set_exponent_r10.c D libgfortran/generated/set_exponent_r16.c D libgfortran/generated/set_exponent_r4.c D libgfortran/generated/set_exponent_r8.c D libgfortran/generated/spacing_r10.c D libgfortran/generated/spacing_r16.c D libgfortran/generated/spacing_r4.c D libgfortran/generated/spacing_r8.c D libgfortran/generated/transpose_c10.c D libgfortran/generated/transpose_c16.c D libgfortran/generated/transpose_c4.c D libgfortran/generated/transpose_c8.c D libgfortran/generated/transpose_i16.c D libgfortran/generated/transpose_i4.c D libgfortran/generated/transpose_i8.c D libgfortran/generated/transpose_r10.c D libgfortran/generated/transpose_r16.c D libgfortran/generated/transpose_r4.c D libgfortran/generated/transpose_r8.c D libgfortran/intrinsics/malloc.c D libgfortran/intrinsics/transpose_generic.c D libgfortran/m4/exponent.m4 D libgfortran/m4/fraction.m4 D libgfortran/m4/nearest.m4 D libgfortran/m4/rrspacing.m4 D libgfortran/m4/set_exponent.m4 D libgfortran/m4/spacing.m4 D libgfortran/m4/transpose.m4 git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@243804 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/generated/set_exponent_r10.c')
-rw-r--r--libgfortran/generated/set_exponent_r10.c44
1 files changed, 0 insertions, 44 deletions
diff --git a/libgfortran/generated/set_exponent_r10.c b/libgfortran/generated/set_exponent_r10.c
deleted file mode 100644
index de8f59dc5b0..00000000000
--- a/libgfortran/generated/set_exponent_r10.c
+++ /dev/null
@@ -1,44 +0,0 @@
-/* Implementation of the SET_EXPONENT intrinsic
- Copyright (C) 2003-2016 Free Software Foundation, Inc.
- Contributed by Richard Henderson <rth@redhat.com>.
-
-This file is part of the GNU Fortran 95 runtime library (libgfortran).
-
-Libgfortran is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public
-License as published by the Free Software Foundation; either
-version 3 of the License, or (at your option) any later version.
-
-Libgfortran is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-Under Section 7 of GPL version 3, you are granted additional
-permissions described in the GCC Runtime Library Exception, version
-3.1, as published by the Free Software Foundation.
-
-You should have received a copy of the GNU General Public License and
-a copy of the GCC Runtime Library Exception along with this program;
-see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
-<http://www.gnu.org/licenses/>. */
-
-#include "libgfortran.h"
-
-
-
-#define MATHFUNC(funcname) funcname ## l
-
-#if defined (HAVE_GFC_REAL_10) && defined (HAVE_SCALBNL) && defined (HAVE_FREXPL)
-
-extern GFC_REAL_10 set_exponent_r10 (GFC_REAL_10 s, GFC_INTEGER_4 i);
-export_proto(set_exponent_r10);
-
-GFC_REAL_10
-set_exponent_r10 (GFC_REAL_10 s, GFC_INTEGER_4 i)
-{
- int dummy_exp;
- return MATHFUNC(scalbn) (MATHFUNC(frexp) (s, &dummy_exp), i);
-}
-
-#endif