Re: [Bug-gsl] GSL on Solaris problems

[Brian Gough]

At Fri, 20 Apr 2007 17:52:05 +0100 (BST),
Henry Tillotson wrote:
> /bin/bash ../libtool --tag=CC --mode=compile cc -DHAVE_CONFIG_H  -I. -I. -I.. 
> -I..  -I/usr/include   -O -c -o infnan.lo infnan.c
>  cc -DHAVE_CONFIG_H -I. -I. -I.. -I.. -I/usr/include -O -c infnan.c  -KPIC 
> -DPIC -o .libs/infnan.o
> "/usr/include/ieeefp.h", line 59: syntax error before or at: 
> __builtin_isfinite
> "/usr/include/ieeefp.h", line 59: warning: syntax error:  empty declaration
> cc: acomp failed for infnan.c
> *** Error code 1

Hello,
Thanks for the bug reports.
I will fix the isfinite problem for the next release.

> 2)  make test problem.
>   After the successful make, we tried 'make check'. This failed in the
>   'sort' test:
> make  check-TESTS
> FAIL: indexing gsl_vector_char, n = 128, stride = 1, ordered [19999]
> FAIL: sorting, gsl_vector_char, n = 128, stride = 1, ordered [20000]
>   I'm not really sure where to go from here in investigating this: if you
>   have any suggestions for further things I could try I'd be most grateful.

I haven't seen this problem before.  To investigate further you'd need
to dump the contents of the vectors that are being tested to see what
is going wrong.  The patch below will do that.

-- 
Brian Gough
(GSL Maintainer)

Network Theory Ltd,
Commercial support for GSL --- http://www.network-theory.com/gsl/


Index: test_source.c
===================================================================
RCS file: /home/gsl-cvs/gsl/sort/test_source.c,v
retrieving revision 1.12
diff -u -r1.12 test_source.c
--- test_source.c       12 Sep 2005 11:34:05 -0000      1.12
+++ test_source.c       23 Apr 2007 16:45:37 -0000
@@ -194,6 +194,14 @@
     {
       if (FUNCTION (gsl_vector, get) (data, i) != FUNCTION (gsl_vector, get) 
(orig, i))
         {
+          size_t j;
+          for (j = 0 ; j < data->size; j++) {
+            printf("%u: " OUT_FORMAT " " OUT_FORMAT " %c\n", j,
+                   FUNCTION (gsl_vector, get) (data, j),
+                   FUNCTION (gsl_vector, get) (orig, j),
+                   (i == j) ? '*' : ' ');
+          }
+
           return GSL_FAILURE;
         }
     }