...
 
Commits (2)
......@@ -738,11 +738,11 @@ CONTAINS
#endif
implicit none
integer,parameter :: nzero = 10
integer,parameter :: nieps = 30
integer,parameter :: ncmpl = 30
integer,parameter :: nieps = 50
integer,parameter :: ncmpl = 50
integer,parameter :: perweight(4) = (/ 100, 500, 30000, 50000 /)
real(kind=prec), parameter :: rrange = 1.5
integer,parameter :: perweight(4) = (/ 1000, 5000, 100000, 500000 /)
real(kind=prec), parameter :: rrange = 3
type(inum), dimension(nzero+nieps+ncmpl) :: basis
type(inum), dimension(size(perweight)) :: args
type(inum), parameter :: ione = inum((1._prec,0._prec), di0)
......@@ -817,7 +817,7 @@ CONTAINS
close(9)
tests_successful = tests_successful .and. .false.
900 FORMAT('Testing ',i5,'/',i5,' GPLs with w=',i1)
900 FORMAT('Testing ',i7,'/',i7,' GPLs with w=',i1)
901 FORMAT(' done. Largest delta = ',ES10.3)
902 FORMAT(' failed with delta = ',ES10.3, ' (seed=',I10,')')
903 FORMAT(' GiNaC problems with seed=',I10)
......
......@@ -227,7 +227,7 @@ findlib() {
return 1
}
addflag() {
eval "CONF_$1=\"\${CONF_$1} ${@:2}\""
eval "CONF_$1=\"${@:2} \${CONF_$1}\""
}
gnuflags() {
......