diff options
Diffstat (limited to 'libgfortran/generated/set_exponent_r8.c')
| -rw-r--r-- | libgfortran/generated/set_exponent_r8.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libgfortran/generated/set_exponent_r8.c b/libgfortran/generated/set_exponent_r8.c index 482e0185dbf..1707a9063b6 100644 --- a/libgfortran/generated/set_exponent_r8.c +++ b/libgfortran/generated/set_exponent_r8.c @@ -27,10 +27,14 @@ You should have received a copy of the GNU General Public License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ + +#include "config.h" #include <math.h> #include "libgfortran.h" +#if defined (HAVE_GFC_REAL_8) && defined (HAVE_SCALBN) && defined (HAVE_FREXP) + extern GFC_REAL_8 set_exponent_r8 (GFC_REAL_8 s, GFC_INTEGER_4 i); export_proto(set_exponent_r8); @@ -40,3 +44,5 @@ set_exponent_r8 (GFC_REAL_8 s, GFC_INTEGER_4 i) int dummy_exp; return scalbn (frexp (s, &dummy_exp), i); } + +#endif |
