intervals 0.3.56

data/ext/crlibm/tests/Makefile.in

@@ -0,0 +1,396 @@
+# Makefile.in generated automatically by automake 1.4-p6 from Makefile.am
+
+# Copyright (C) 1994, 1995-8, 1999, 2001 Free Software Foundation, Inc.
+# This Makefile.in is free software; the Free Software Foundation
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+
+SHELL = @SHELL@
+
+srcdir = @srcdir@
+top_srcdir = @top_srcdir@
+VPATH = @srcdir@
+prefix = @prefix@
+exec_prefix = @exec_prefix@
+
+bindir = @bindir@
+sbindir = @sbindir@
+libexecdir = @libexecdir@
+datadir = @datadir@
+sysconfdir = @sysconfdir@
+sharedstatedir = @sharedstatedir@
+localstatedir = @localstatedir@
+libdir = @libdir@
+infodir = @infodir@
+mandir = @mandir@
+includedir = @includedir@
+oldincludedir = /usr/include
+
+DESTDIR =
+
+pkgdatadir = $(datadir)/@PACKAGE@
+pkglibdir = $(libdir)/@PACKAGE@
+pkgincludedir = $(includedir)/@PACKAGE@
+
+top_builddir = ..
+
+ACLOCAL = @ACLOCAL@
+AUTOCONF = @AUTOCONF@
+AUTOMAKE = @AUTOMAKE@
+AUTOHEADER = @AUTOHEADER@
+
+INSTALL = @INSTALL@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS)
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+transform = @program_transform_name@
+
+NORMAL_INSTALL = :
+PRE_INSTALL = :
+POST_INSTALL = :
+NORMAL_UNINSTALL = :
+PRE_UNINSTALL = :
+POST_UNINSTALL = :
+host_alias = @host_alias@
+host_triplet = @host@
+AWK = @AWK@
+CC = @CC@
+HAVE_LIB = @HAVE_LIB@
+ISODATE = @ISODATE@
+LIB = @LIB@
+LN_S = @LN_S@
+LTLIB = @LTLIB@
+MAKEINFO = @MAKEINFO@
+PACKAGE = @PACKAGE@
+RANLIB = @RANLIB@
+VERSION = @VERSION@
+
+bin_PROGRAMS = crlibm_testval crlibm_soaktest crlibm_testperf crlibm_blindtest crlibm_generate_test_vectors
+
+LDADD = $(top_builddir)/libcrlibm.a
+INCLUDES = -I$(top_srcdir)
+AM_CFLAGS = -g -O0 -std=c99
+
+crlibm_testval_SOURCES = test_val.c test_common.c test_common.h
+crlibm_soaktest_SOURCES = soak_test.c test_common.c test_common.h
+crlibm_testperf_SOURCES = test_perf.c test_common.c test_common.h
+crlibm_blindtest_SOURCES = blind_test.c test_common.c test_common.h
+crlibm_generate_test_vectors_SOURCES = generate_test_vectors.c test_common.c test_common.h
+
+CRLIBM_CHECKLIST = check_exp check_log check_log2 check_log10  check_sin check_cos check_tan check_atan check_sinh check_cosh
+TESTS = $(CRLIBM_CHECKLIST)
+
+EXTRA_DIST = exp.testdata log.testdata log2.testdata log10.testdata sin.testdata cos.testdata tan.testdata atan.testdata sinh.testdata cosh.testdata
+
+CLEANFILES = $(CRLIBM_CHECKLIST)
+mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
+CONFIG_HEADER = ../crlibm_config.h
+CONFIG_CLEAN_FILES = 
+PROGRAMS =  $(bin_PROGRAMS)
+
+
+DEFS = @DEFS@ -I. -I$(srcdir) -I..
+CPPFLAGS = @CPPFLAGS@
+LDFLAGS = @LDFLAGS@
+LIBS = @LIBS@
+crlibm_testval_OBJECTS =  test_val.o test_common.o
+crlibm_testval_LDADD = $(LDADD)
+crlibm_testval_DEPENDENCIES =  $(top_builddir)/libcrlibm.a
+crlibm_testval_LDFLAGS = 
+crlibm_soaktest_OBJECTS =  soak_test.o test_common.o
+crlibm_soaktest_LDADD = $(LDADD)
+crlibm_soaktest_DEPENDENCIES =  $(top_builddir)/libcrlibm.a
+crlibm_soaktest_LDFLAGS = 
+crlibm_testperf_OBJECTS =  test_perf.o test_common.o
+crlibm_testperf_LDADD = $(LDADD)
+crlibm_testperf_DEPENDENCIES =  $(top_builddir)/libcrlibm.a
+crlibm_testperf_LDFLAGS = 
+crlibm_blindtest_OBJECTS =  blind_test.o test_common.o
+crlibm_blindtest_LDADD = $(LDADD)
+crlibm_blindtest_DEPENDENCIES =  $(top_builddir)/libcrlibm.a
+crlibm_blindtest_LDFLAGS = 
+crlibm_generate_test_vectors_OBJECTS =  generate_test_vectors.o \
+test_common.o
+crlibm_generate_test_vectors_LDADD = $(LDADD)
+crlibm_generate_test_vectors_DEPENDENCIES =  $(top_builddir)/libcrlibm.a
+crlibm_generate_test_vectors_LDFLAGS = 
+CFLAGS = @CFLAGS@
+COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
+CCLD = $(CC)
+LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@
+DIST_COMMON =  Makefile.am Makefile.in
+
+
+DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
+
+TAR = tar
+GZIP_ENV = --best
+SOURCES = $(crlibm_testval_SOURCES) $(crlibm_soaktest_SOURCES) $(crlibm_testperf_SOURCES) $(crlibm_blindtest_SOURCES) $(crlibm_generate_test_vectors_SOURCES)
+OBJECTS = $(crlibm_testval_OBJECTS) $(crlibm_soaktest_OBJECTS) $(crlibm_testperf_OBJECTS) $(crlibm_blindtest_OBJECTS) $(crlibm_generate_test_vectors_OBJECTS)
+
+all: all-redirect
+.SUFFIXES:
+.SUFFIXES: .S .c .o .s
+$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.ac $(ACLOCAL_M4) 
+	cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps tests/Makefile
+
+Makefile: $(srcdir)/Makefile.in  $(top_builddir)/config.status
+	cd $(top_builddir) \
+	  && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
+
+
+mostlyclean-binPROGRAMS:
+
+clean-binPROGRAMS:
+	-test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS)
+
+distclean-binPROGRAMS:
+
+maintainer-clean-binPROGRAMS:
+
+install-binPROGRAMS: $(bin_PROGRAMS)
+	@$(NORMAL_INSTALL)
+	$(mkinstalldirs) $(DESTDIR)$(bindir)
+	@list='$(bin_PROGRAMS)'; for p in $$list; do \
+	  if test -f $$p; then \
+	    echo "  $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`"; \
+	     $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \
+	  else :; fi; \
+	done
+
+uninstall-binPROGRAMS:
+	@$(NORMAL_UNINSTALL)
+	list='$(bin_PROGRAMS)'; for p in $$list; do \
+	  rm -f $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \
+	done
+
+.c.o:
+	$(COMPILE) -c $<
+
+.s.o:
+	$(COMPILE) -c $<
+
+.S.o:
+	$(COMPILE) -c $<
+
+mostlyclean-compile:
+	-rm -f *.o core *.core
+
+clean-compile:
+
+distclean-compile:
+	-rm -f *.tab.c
+
+maintainer-clean-compile:
+
+crlibm_testval: $(crlibm_testval_OBJECTS) $(crlibm_testval_DEPENDENCIES)
+	@rm -f crlibm_testval
+	$(LINK) $(crlibm_testval_LDFLAGS) $(crlibm_testval_OBJECTS) $(crlibm_testval_LDADD) $(LIBS)
+
+crlibm_soaktest: $(crlibm_soaktest_OBJECTS) $(crlibm_soaktest_DEPENDENCIES)
+	@rm -f crlibm_soaktest
+	$(LINK) $(crlibm_soaktest_LDFLAGS) $(crlibm_soaktest_OBJECTS) $(crlibm_soaktest_LDADD) $(LIBS)
+
+crlibm_testperf: $(crlibm_testperf_OBJECTS) $(crlibm_testperf_DEPENDENCIES)
+	@rm -f crlibm_testperf
+	$(LINK) $(crlibm_testperf_LDFLAGS) $(crlibm_testperf_OBJECTS) $(crlibm_testperf_LDADD) $(LIBS)
+
+crlibm_blindtest: $(crlibm_blindtest_OBJECTS) $(crlibm_blindtest_DEPENDENCIES)
+	@rm -f crlibm_blindtest
+	$(LINK) $(crlibm_blindtest_LDFLAGS) $(crlibm_blindtest_OBJECTS) $(crlibm_blindtest_LDADD) $(LIBS)
+
+crlibm_generate_test_vectors: $(crlibm_generate_test_vectors_OBJECTS) $(crlibm_generate_test_vectors_DEPENDENCIES)
+	@rm -f crlibm_generate_test_vectors
+	$(LINK) $(crlibm_generate_test_vectors_LDFLAGS) $(crlibm_generate_test_vectors_OBJECTS) $(crlibm_generate_test_vectors_LDADD) $(LIBS)
+
+tags: TAGS
+
+ID: $(HEADERS) $(SOURCES) $(LISP)
+	list='$(SOURCES) $(HEADERS)'; \
+	unique=`for i in $$list; do echo $$i; done | \
+	  awk '    { files[$$0] = 1; } \
+	       END { for (i in files) print i; }'`; \
+	here=`pwd` && cd $(srcdir) \
+	  && mkid -f$$here/ID $$unique $(LISP)
+
+TAGS:  $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) $(LISP)
+	tags=; \
+	here=`pwd`; \
+	list='$(SOURCES) $(HEADERS)'; \
+	unique=`for i in $$list; do echo $$i; done | \
+	  awk '    { files[$$0] = 1; } \
+	       END { for (i in files) print i; }'`; \
+	test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \
+	  || (cd $(srcdir) && etags -o $$here/TAGS $(ETAGS_ARGS) $$tags  $$unique $(LISP))
+
+mostlyclean-tags:
+
+clean-tags:
+
+distclean-tags:
+	-rm -f TAGS ID
+
+maintainer-clean-tags:
+
+distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
+
+subdir = tests
+
+distdir: $(DISTFILES)
+	@for file in $(DISTFILES); do \
+	  d=$(srcdir); \
+	  if test -d $$d/$$file; then \
+	    cp -pr $$d/$$file $(distdir)/$$file; \
+	  else \
+	    test -f $(distdir)/$$file \
+	    || ln $$d/$$file $(distdir)/$$file 2> /dev/null \
+	    || cp -p $$d/$$file $(distdir)/$$file || :; \
+	  fi; \
+	done
+blind_test.o: blind_test.c ../crlibm.h ../crlibm_private.h \
+	../scs_lib/scs.h ../crlibm_config.h ../scs_lib/scs_private.h \
+	test_common.h
+generate_test_vectors.o: generate_test_vectors.c ../crlibm.h \
+	../crlibm_private.h ../scs_lib/scs.h ../crlibm_config.h \
+	../scs_lib/scs_private.h
+soak_test.o: soak_test.c ../crlibm.h ../crlibm_private.h \
+	../scs_lib/scs.h ../crlibm_config.h ../scs_lib/scs_private.h
+test_common.o: test_common.c ../crlibm.h ../crlibm_private.h \
+	../scs_lib/scs.h ../crlibm_config.h ../scs_lib/scs_private.h \
+	test_common.h
+test_perf.o: test_perf.c ../crlibm.h ../crlibm_private.h \
+	../scs_lib/scs.h ../crlibm_config.h ../scs_lib/scs_private.h \
+	test_common.h ../scs_lib/tests/tbx_timing.h
+test_val.o: test_val.c ../crlibm.h ../crlibm_private.h ../scs_lib/scs.h \
+	../crlibm_config.h ../scs_lib/scs_private.h test_common.h
+
+check-TESTS: $(TESTS)
+	@failed=0; all=0; \
+	srcdir=$(srcdir); export srcdir; \
+	for tst in $(TESTS); do \
+	  if test -f $$tst; then dir=.; \
+	  else dir="$(srcdir)"; fi; \
+	  if $(TESTS_ENVIRONMENT) $$dir/$$tst; then \
+	    all=`expr $$all + 1`; \
+	    echo "PASS: $$tst"; \
+	  elif test $$? -ne 77; then \
+	    all=`expr $$all + 1`; \
+	    failed=`expr $$failed + 1`; \
+	    echo "FAIL: $$tst"; \
+	  fi; \
+	done; \
+	if test "$$failed" -eq 0; then \
+	  banner="All $$all tests passed"; \
+	else \
+	  banner="$$failed of $$all tests failed"; \
+	fi; \
+	dashes=`echo "$$banner" | sed s/./=/g`; \
+	echo "$$dashes"; \
+	echo "$$banner"; \
+	echo "$$dashes"; \
+	test "$$failed" -eq 0
+info-am:
+info: info-am
+dvi-am:
+dvi: dvi-am
+check-am: all-am
+	$(MAKE) $(AM_MAKEFLAGS) check-TESTS
+check: check-am
+installcheck-am:
+installcheck: installcheck-am
+install-exec-am: install-binPROGRAMS
+install-exec: install-exec-am
+
+install-data-am:
+install-data: install-data-am
+
+install-am: all-am
+	@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+install: install-am
+uninstall-am: uninstall-binPROGRAMS
+uninstall: uninstall-am
+all-am: Makefile $(PROGRAMS)
+all-redirect: all-am
+install-strip:
+	$(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install
+installdirs:
+	$(mkinstalldirs)  $(DESTDIR)$(bindir)
+
+
+mostlyclean-generic:
+
+clean-generic:
+	-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
+
+distclean-generic:
+	-rm -f Makefile $(CONFIG_CLEAN_FILES)
+	-rm -f config.cache config.log stamp-h stamp-h[0-9]*
+
+maintainer-clean-generic:
+mostlyclean-am:  mostlyclean-binPROGRAMS mostlyclean-compile \
+		mostlyclean-tags mostlyclean-generic
+
+mostlyclean: mostlyclean-am
+
+clean-am:  clean-binPROGRAMS clean-compile clean-tags clean-generic \
+		mostlyclean-am
+
+clean: clean-am
+
+distclean-am:  distclean-binPROGRAMS distclean-compile distclean-tags \
+		distclean-generic clean-am
+
+distclean: distclean-am
+
+maintainer-clean-am:  maintainer-clean-binPROGRAMS \
+		maintainer-clean-compile maintainer-clean-tags \
+		maintainer-clean-generic distclean-am
+	@echo "This command is intended for maintainers to use;"
+	@echo "it deletes files that may require special tools to rebuild."
+
+maintainer-clean: maintainer-clean-am
+
+.PHONY: mostlyclean-binPROGRAMS distclean-binPROGRAMS clean-binPROGRAMS \
+maintainer-clean-binPROGRAMS uninstall-binPROGRAMS install-binPROGRAMS \
+mostlyclean-compile distclean-compile clean-compile \
+maintainer-clean-compile tags mostlyclean-tags distclean-tags \
+clean-tags maintainer-clean-tags distdir check-TESTS info-am info \
+dvi-am dvi check check-am installcheck-am installcheck install-exec-am \
+install-exec install-data-am install-data install-am install \
+uninstall-am uninstall all-redirect all-am all installdirs \
+mostlyclean-generic distclean-generic clean-generic \
+maintainer-clean-generic clean mostlyclean distclean maintainer-clean
+
+../libcrlibm.a:
+	cd $(top_srcdir); make libcrlibm.a 
+
+check_exp: crlibm_blindtest
+	echo ./crlibm_blindtest exp.testdata>check_exp; chmod a+rx check_exp
+check_log: crlibm_blindtest
+	echo ./crlibm_blindtest log.testdata>check_log; chmod a+rx check_log
+check_log2: crlibm_blindtest
+	echo ./crlibm_blindtest log2.testdata>check_log2; chmod a+rx check_log2
+check_log10: crlibm_blindtest
+	echo ./crlibm_blindtest log10.testdata>check_log10; chmod a+rx check_log10
+check_sin: crlibm_blindtest
+	echo ./crlibm_blindtest sin.testdata>check_sin; chmod a+rx check_sin
+check_cos: crlibm_blindtest
+	echo ./crlibm_blindtest cos.testdata>check_cos; chmod a+rx check_cos
+check_tan: crlibm_blindtest
+	echo ./crlibm_blindtest tan.testdata>check_tan; chmod a+rx check_tan
+check_atan: crlibm_blindtest
+	echo ./crlibm_blindtest atan.testdata>check_atan; chmod a+rx check_atan
+check_sinh: crlibm_blindtest
+	echo ./crlibm_blindtest sinh.testdata>check_sinh; chmod a+rx check_sinh
+check_cosh: crlibm_blindtest
+	echo ./crlibm_blindtest cosh.testdata>check_cosh; chmod a+rx check_cosh
+
+# Tell versions [3.59,3.63) of GNU make to not export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:

data/ext/crlibm/tests/blind_test.c

@@ -0,0 +1,148 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "crlibm.h"
+#include "crlibm_private.h"
+#include "test_common.h"
+
+void usage(char *fct_name){
+  fprintf (stderr, "\nUsage: %s [-v] file\n", fct_name);
+  exit (EXIT_SUCCESS);
+}
+
+
+
+char* skip_comments(FILE* f, char* line) {
+  char* r; 
+  int i;
+  do {
+    r=fgets(line, 200, f);
+  }
+    /* Look if the first char was a #, a newline or a blank character */
+  while((line[0]=='#' || line[0]=='\n' || line[0]==' ' || line[0]=='\t' || line[0]==0) && r!=NULL);
+
+  /* look for a comment in the line, and remove it */
+  i=0;
+  while(line[i]!=0 && line[i]!='#') i++;
+  line[i]=0;
+  return r;
+}
+
+
+int main (int argc, char *argv[]) 
+{ 
+  int verbose=0;
+  int failures=0;
+  char* option;
+  char* filename;
+  char rounding_mode[10];
+  char function_name[10];
+  char line[400];
+  char* r;
+  int count=0;
+  double worstcase;
+  db_number input, output, expected;
+#ifdef HAVE_MPFR_H  
+  db_number res_mpfr;
+  mpfr_t mp_res, mp_inpt; 
+  mp_rnd_t mpfr_rnd_mode;
+#endif
+  int (*mpfr_fun)() = NULL;
+  double (*testfun_crlibm)() = NULL;
+  double (*unused)() = NULL;
+
+  FILE* f;
+
+  if ((argc != 2) && argc!=3) usage(argv[0]);
+  if (argc == 3) {
+    option = argv[1];
+    filename=argv[2];
+    if(!(option[0]=='-' && option[1]=='v')) usage(argv[0]);
+    else verbose=1;
+  }
+  else
+    filename=argv[1];
+
+
+  f=fopen(filename, "r");
+  if(f==NULL) {
+    fprintf(stderr, "%s: problem opening %s, exiting\n", argv[0], filename);
+    exit(EXIT_FAILURE);
+  }
+
+
+  crlibm_init();
+   
+  fflush(stdout); /* To help debugging */
+
+  skip_comments(f, line);
+  sscanf(line, "%s", function_name);
+
+  if(verbose)  printf("Testing function: %s\n", function_name);
+
+  r=skip_comments(f, line);
+  while(r!=0) { 
+    sscanf(line, "%s %x %x %x %x\n", 
+	   rounding_mode, 
+	   &input.i[HI], &input.i[LO],
+	   &expected.i[HI], &expected.i[LO] );
+      /* Centralized test initialization function */
+    test_init(
+	      &unused, &unused, 
+	      &testfun_crlibm, 
+	      &mpfr_fun, &unused, &unused, &unused, &worstcase,
+	      function_name,
+	      rounding_mode ) ;
+    
+    output.d = testfun_crlibm(input.d);
+    count++;
+
+    if(verbose){
+      printf("Input:      %08x %08x  (%0.50e)\n", input.i[HI], input.i[LO], input.d ); 
+      printf("    Output: %08x %08x  (%0.50e)", output.i[HI], output.i[LO], output.d ); 
+      if( output.l==expected.l)
+	printf("   ...  OK \n");
+      else
+	printf(" \n");
+
+    }
+    /* The following tests is a little bit contrived because of NaN */
+    if(    ((expected.d != expected.d) && (output.d == output.d)) /* expected NaN, got non-NaN */
+        || ((expected.d == expected.d) && (output.l != expected.l))    ) { /* or expected non-NaN, got something different */
+      failures ++;
+      printf("ERROR for %s with rounding %s\n", function_name, rounding_mode);
+      printf("       Input: %08x %08x  (%0.50e)\n", input.i[HI], input.i[LO], input.d ); 
+      printf("      Output: %08x %08x  (%0.50e)\n", output.i[HI], output.i[LO], output.d ); 
+      printf("    Expected: %08x %08x  (%0.50e)\n", expected.i[HI], expected.i[LO], expected.d ); 
+
+#ifdef HAVE_MPFR_H  
+      if      ((strcmp(rounding_mode,"RU")==0) || (strcmp(rounding_mode,"P")==0)) mpfr_rnd_mode = GMP_RNDU;
+      else if ((strcmp(rounding_mode,"RD")==0) || (strcmp(rounding_mode,"M")==0)) mpfr_rnd_mode = GMP_RNDD;
+      else if ((strcmp(rounding_mode,"RZ")==0) || (strcmp(rounding_mode,"Z")==0)) mpfr_rnd_mode = GMP_RNDZ;
+      else if ((strcmp(rounding_mode,"RN")==0) || (strcmp(rounding_mode,"N")==0)) mpfr_rnd_mode = GMP_RNDN;
+      else {
+	fprintf(stderr, "Unknown rounding mode: %s, exiting\n", rounding_mode);
+	exit(EXIT_FAILURE);
+      }
+
+      mpfr_init2(mp_res,  160);
+      mpfr_init2(mp_inpt, 53);
+      mpfr_set_d(mp_inpt, input.d, GMP_RNDN);
+      mpfr_fun(mp_res, mp_inpt, mpfr_rnd_mode);
+      res_mpfr.d = mpfr_get_d(mp_res, mpfr_rnd_mode);
+
+      printf(" MPFR result: %08x %08x  (%0.50e)\n", res_mpfr.i[HI], res_mpfr.i[LO], res_mpfr.d ); 
+#endif /* HAVE_MPFR_H */ 
+
+    }
+    fflush(stdout); /* To help debugging */
+    
+    r=skip_comments(f, line);
+  } 
+  printf("Test completed for %s, %d failures in %d tests\n", function_name, failures, count);
+  return failures;
+  
+}
+
+
+