    PROGRAM sdCheckTrue
      USE mpmodule, ONLY: mpinit
      USE checkTrueMod, ONLY: runSpTests, runDpTests
      USE checkTests, ONLY: setOutputLevel, setJustValues, &
                            outputNoOfFails, zeroTestCounts

! Output header to identify output
      WRITE(*,'(A)') '*************************************************'
      WRITE(*,'(A)') 'Output from test driver that compares expected results'
      WRITE(*,'(A)') 'against those generated using the oracle routines'
      WRITE(*,'(A)') '*************************************************'
      WRITE(*,'(A)') ''
      CALL zeroTestCounts
! The amount of output generated may be controlled by
! setting the output level here:
! 1: Detailed; 2: Intermediate; 3: Concise;
! see user manual for more details
! The default is 3 which we opt for here.
!     CALL setOutputLevel(1)
      CALL setJustValues(.TRUE.)
      WRITE (*, '(''Single Precision Test Results'')')
      WRITE (*, '(''-----------------------------'')')
      CALL runSpTests()
      CALL outputNoOfFails

      CALL zeroTestCounts
! The amount of output generated may be controlled by
! setting the output level here:
! 1: Detailed; 2: Intermediate; 3: Concise;
! see user manual for more details
! The default is 3 which we opt for here.
!      CALL setOutputLevel(2)
      CALL setJustValues(.TRUE.)
      CALL mpinit
      WRITE (*, '(''Double Precision Test Results'')')
      WRITE (*, '(''-----------------------------'')')
      CALL runDpTests()
      CALL outputNoOfFails

    END PROGRAM sdCheckTrue
