diff --git a/checks/test.f90 b/checks/test.f90 index c60b4afeb9d3e5568407c94e5e38e593ff03c2ad..5f531d18c4f4335ff8f4c2f6fbb912f7518fa89d 100644 --- a/checks/test.f90 +++ b/checks/test.f90 @@ -30,7 +30,7 @@ PROGRAM TEST call get_command_argument(i,arg) read(arg,*) verb ! str to int #else - call errprint("-verb not available, compile with --debug") + call errprint("Argument -verb is not available, compile with --debug") #endif case('-mpl-test') tol = zero * 1.e5_prec @@ -42,8 +42,7 @@ PROGRAM TEST tol = 8.0e-7 tests_successful = tests_successful .and. do_chen_test() -#ifdef HAVE_GINAC -#ifdef HAVE_MM +#if defined(HAVE_GINAC) && defined(HAVE_MM) case('-ginac-tests') tol = 8.0e-7 call do_ginac_tests @@ -55,10 +54,18 @@ PROGRAM TEST case ('-hw-tests') tol = 8.0e-7 call do_high_weight_tests +#else + case('-ginac-tests', '-speed-tests', '-hw-tests') + call errprint("Argument "//trim(arg)//" is not available, compile with --with-ginac --with-mcc") +#endif + +#ifdef HAVE_GINAC case ('-long-test') tol = 8.0e-7 call do_long_test -#endif +#else + case('-long-test') + call errprint("Argument "//trim(arg)//" is not available, compile with --with-ginac") #endif case ('-report') #ifdef DEBUG @@ -69,10 +76,8 @@ PROGRAM TEST call do_GPL_tests tol = 8.0e-7 tests_successful = tests_successful .and. do_chen_test() -#ifdef HAVE_GINAC -#ifdef HAVE_MM +#if defined(HAVE_GINAC) && defined(HAVE_MM) call do_ginac_tests -#endif #endif case default @@ -470,7 +475,6 @@ CONTAINS #ifdef HAVE_GINAC -#ifdef HAVE_MM function evalt(arr, what) #if KINDREAL==16 @@ -505,6 +509,9 @@ CONTAINS endif end function + +#ifdef HAVE_MM + subroutine perform_ginacv(n, args) use maths_functions, only:clearcache complex(kind=prec) :: args(:,:) @@ -533,7 +540,6 @@ CONTAINS end subroutine -#ifndef NOSPEED subroutine do_one_speed_test(args, u, msg) use maths_functions, only:clearcache implicit none @@ -836,7 +842,7 @@ CONTAINS #endif -#endif + ! subroutine do_shuffle_tests() ! complex(kind=prec) :: v(2) = cmplx((/1,2/)) ! complex(kind=prec) :: w(2) = cmplx((/3,4/)) diff --git a/configure b/configure index eac4843196b02d3be8de9057cbb45cb6deea1129..bdf88b909980a638b97450b753b18beab165bed5 100755 --- a/configure +++ b/configure @@ -747,7 +747,7 @@ build/%.o: src/%.f90 build/%.o: checks/%.f90 @echo "F90 \$@" - @\$(FC) \$(FFLAGS) -c \$< -o \$@ + @\$(FC) \$(FFLAGS) -Wno-unused-function -c \$< -o \$@ build/%.o: src/%.cpp @echo "C++ \$@"