fUnit 0.0.1 → 0.0.2

data/examples/CFD/GasModelMT.f90

@@ -0,0 +1,173 @@
+! GasModelMT.f90 - a Fortran mobility test suite for GasModel.f90
+!
+! [dynamically generated from GasModelMT.ftk
+!  by funit Ruby script Sun Apr 09 01:08:39 EDT 2006]
+
+module GasModelMT
+
+ use GasModel
+
+ implicit none
+
+ private
+
+ public :: MTGasModel
+
+ logical :: noAssertFailed
+
+ integer :: numTests          = 0
+ integer :: numAsserts        = 0
+ integer :: numAssertsTested  = 0
+ integer :: numFailures       = 0
+
+! $Id: GasModelTS.ftk 91 2001-11-13 20:46:28Z cvs4bk $
+
+ real            :: Pressure, Density, Energy
+
+ contains
+
+ subroutine TestPerfectPZeroed
+
+  real, parameter :: zero = 0
+  call PerfectP (zero, zero, Pressure)
+
+  ! IsRealEqual assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.(Pressure+2*spacing(real(Pressure)).ge. 0  &
+             .and.Pressure-2*spacing(real(Pressure)).le. 0 )) then
+      print *, " *IsRealEqual failed* in test PerfectPZeroed &
+                         &[GasModelMT.ftk:8]"
+      print *, "  ", " 0  (", 0 ,") is not",Pressure,"within",2*spacing(real(Pressure))
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  ! IsEqualWithin assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.( 0+ 0.0000000001 .ge. Pressure &
+             .and. 0- 0.0000000001 .le. Pressure)) then
+      print *, " *IsEqualWithin failed* in test PerfectPZeroed &
+                         &[GasModelMT.ftk:9]"
+      print *, "  ", " Pressure (", Pressure,") is not", 0,"within", 0.0000000001 
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  numTests = numTests + 1
+
+ end subroutine TestPerfectPZeroed
+
+
+ subroutine TestWarbler
+
+
+  numTests = numTests + 1
+
+ end subroutine TestWarbler
+
+
+ subroutine TestPerfectPKnown
+
+  real :: Density = 1
+  Energy  = 1
+  call PerfectP( Density, Energy, Pressure )
+
+  ! IsRealEqual assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.( Pressure+2*spacing(real( Pressure)).ge. 0.4  &
+             .and. Pressure-2*spacing(real( Pressure)).le. 0.4 )) then
+      print *, " *IsRealEqual failed* in test PerfectPKnown &
+                         &[GasModelMT.ftk:19]"
+      print *, "  ", " 0.4  (", 0.4 ,") is not", Pressure,"within",2*spacing(real( Pressure))
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  ! IsTrue assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.(    Pressure .gt. 0 )) then
+      print *, " *IsTrue failed* in test PerfectPKnown &
+                         &[GasModelMT.ftk:20]"
+      print *, "  ", "    Pressure .gt. 0  is not true"
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  ! IsFalse assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if ( Pressure .lt. 0 ) then
+      print *, " *IsFalse failed* in test PerfectPKnown &
+                         &[GasModelMT.ftk:21]"
+      print *, "  ", " Pressure .lt. 0  is not false"
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  numTests = numTests + 1
+
+ end subroutine TestPerfectPKnown
+
+
+ subroutine Setup
+  noAssertFailed = .true.
+ end subroutine Setup
+
+
+ subroutine Teardown
+ end subroutine Teardown
+
+
+ subroutine MTGasModel( nTests, nAsserts, nAssertsTested, nFailures )
+
+  integer :: nTests
+  integer :: nAsserts
+  integer :: nAssertsTested
+  integer :: nFailures
+
+  continue
+
+  call Setup
+  call TestPerfectPZeroed
+  call Teardown
+
+  call Setup
+  call TestWarbler
+  call Teardown
+
+  call Setup
+  call TestPerfectPKnown
+  call Teardown
+
+  nTests          = numTests
+  nAsserts        = numAsserts
+  nAssertsTested  = numAssertsTested
+  nFailures       = numFailures
+
+ end subroutine MTGasModel
+
+end module GasModelMT

data/examples/CFD/GasModelMT.ftk

@@ -0,0 +1,22 @@
+! $Id: GasModelTS.ftk 91 2001-11-13 20:46:28Z cvs4bk $
+
+ real            :: Pressure, Density, Energy
+
+beginTest PerfectPZeroed
+  real, parameter :: zero = 0
+  call PerfectP (zero, zero, Pressure)
+  isRealEqual (Pressure, 0 )
+  IsEqualwithin ( Pressure, 0, 0.0000000001 )
+endTest
+
+begintest Warbler
+endtest
+
+beginTest PerfectPKnown
+  real :: Density = 1
+  Energy  = 1
+  call PerfectP( Density, Energy, Pressure )
+  IsRealEqual( Pressure, 0.4 )
+  IsTrue  (    Pressure .gt. 0 )
+  IsFalse( Pressure .lt. 0 )
+endTest

data/examples/CFD/TestRunner.f90

@@ -0,0 +1,23 @@
+! TestRunner.f90 - runs Fortran mobility test suites
+!
+! [Dynamically generated by funit Ruby script Sun Apr 09 01:08:39 EDT 2006.]
+
+program TestRunner
+
+ use GasModelMT
+
+ implicit none
+
+ integer :: numTests, numAsserts, numAssertsTested, numFailures
+
+ print *, ""
+ print *, "GasModel test suite:"
+ call MTGasModel( numTests, &
+        numAsserts, numAssertsTested, numFailures )
+ print *, "Passed", numAssertsTested, "of", numAsserts, &
+          "possible asserts comprising", &
+           numTests-numFailures, "of", numTests, "tests." 
+
+ print *, ""
+
+end program TestRunner

data/examples/CFD/fluxfunctions.mod

@@ -0,0 +1,45 @@
+G95 module created on Sun Apr  9 01:07:49 2006 from ./FluxFunctions.f90
+If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () ())
+
+()
+
+()
+
+()
+
+()
+
+(2 'centralflux' 'fluxfunctions' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL
+SUBROUTINE) (PROCEDURE 0 ()) 0 0 (3 NONE 4 NONE 5 NONE) () '' () ())
+6 'roeavg' 'fluxfunctions' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL
+FUNCTION) (REAL 4 ()) 0 0 (7 NONE 8 NONE) () '' () ())
+9 'fluxfunctions' 'fluxfunctions' 1 ((MODULE UNKNOWN UNKNOWN UNKNOWN) (
+UNKNOWN 0 ()) 0 0 () () '' () ())
+10 'roeflux' 'fluxfunctions' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL
+SUBROUTINE) (PROCEDURE 0 ()) 0 0 (11 NONE 12 NONE 13 NONE) () '' () ())
+14 'flux' 'fluxfunctions' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL
+FUNCTION) (REAL 4 ()) 0 0 (15 NONE) () '' () ())
+4 'rightstate' '' 16 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0
+0 () () '' () ())
+11 'leftstate' '' 17 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0
+0 () () '' () ())
+12 'rightstate' '' 17 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0
+0 () () '' () ())
+5 'interfaceflux' '' 16 ((VARIABLE OUT UNKNOWN UNKNOWN DUMMY) (REAL 4 ())
+0 0 () () '' () ())
+13 'interfaceflux' '' 17 ((VARIABLE OUT UNKNOWN UNKNOWN DUMMY) (REAL 4 ())
+0 0 () () '' () ())
+15 'state' '' 18 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0 ()
+() '' () ())
+7 'leftstate' '' 19 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0
+() () '' () ())
+8 'rightstate' '' 19 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0
+0 () () '' () ())
+3 'leftstate' '' 16 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0
+() () '' () ())
+)
+
+('flux' 0 14 'centralflux' 0 2 'roeflux' 0 10 'fluxfunctions' 0 9 'roeavg'
+0 6)

data/examples/CFD/gammas.mod

@@ -0,0 +1,20 @@
+G95 module created on Sun Apr  9 01:07:49 2006 from ./Gammas.f90
+If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () ())
+
+()
+
+()
+
+()
+
+()
+
+(2 'gamma' 'gammas' 1 ((PARAMETER UNKNOWN UNKNOWN UNKNOWN) (REAL 4 ()) 0
+0 () (CONSTANT (REAL 4 ()) 0 '11744051' 0 127) () '' () ())
+3 'gammas' 'gammas' 1 ((MODULE UNKNOWN UNKNOWN UNKNOWN) (UNKNOWN 0 ()) 0
+0 () () '' () ())
+)
+
+('gammas' 0 3 'gamma' 0 2)

data/examples/CFD/gasmodel.mod

@@ -0,0 +1,30 @@
+G95 module created on Sun Apr  9 01:07:49 2006 from ./GasModel.f90
+If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () ())
+
+()
+
+()
+
+()
+
+()
+
+(2 'gamma' 'gammas' 1 ((PARAMETER UNKNOWN UNKNOWN UNKNOWN) (REAL 4 ()) 0
+0 () (CONSTANT (REAL 4 ()) 0 '11744051' 0 127) () '' () ())
+3 'gammas' 'gammas' 1 ((MODULE UNKNOWN UNKNOWN UNKNOWN) (UNKNOWN 0 ()) 0
+0 () () '' () ())
+4 'perfectp' 'gasmodel' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL
+SUBROUTINE) (PROCEDURE 0 ()) 0 0 (5 NONE 6 NONE 7 NONE) () '' () ())
+8 'gasmodel' 'gasmodel' 1 ((MODULE UNKNOWN UNKNOWN UNKNOWN) (UNKNOWN 0 ())
+0 0 () () '' () ())
+5 'density' '' 9 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0 ()
+() '' () ())
+7 'pressure' '' 9 ((VARIABLE OUT UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0
+() () '' () ())
+6 'energy' '' 9 ((VARIABLE IN UNKNOWN UNKNOWN DUMMY) (REAL 4 ()) 0 0 ()
+() '' () ())
+)
+
+('gasmodel' 0 8 'gammas' 0 3 'gamma' 0 2 'perfectp' 0 4)

data/examples/CFD/gasmodelmt.mod

@@ -0,0 +1,27 @@
+G95 module created on Sun Apr  9 01:07:49 2006 from ./GasModelMT.f90
+If you edit this, you'll get what you deserve.
+
+(() () () () () () () () () () () () () () () () () () () () ())
+
+()
+
+()
+
+()
+
+()
+
+(2 'mtgasmodel' 'gasmodelmt' 1 ((PROCEDURE UNKNOWN MODULE-PROC DECL
+SUBROUTINE) (PROCEDURE 0 ()) 0 0 (3 NONE 4 NONE 5 NONE 6 NONE) () '' ()
+())
+3 'ntests' '' 7 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (INTEGER 4 ())
+0 0 () () '' () ())
+4 'nasserts' '' 7 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (INTEGER 4 ())
+0 0 () () '' () ())
+6 'nfailures' '' 7 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (INTEGER 4
+()) 0 0 () () '' () ())
+5 'nassertstested' '' 7 ((VARIABLE UNKNOWN UNKNOWN UNKNOWN DUMMY) (
+INTEGER 4 ()) 0 0 () () '' () ())
+)
+
+('mtgasmodel' 0 2)

data/examples/StopWatch/StopWatch.f90

@@ -0,0 +1,50 @@
+module StopWatch
+
+  implicit none
+
+  public
+
+  logical :: notInitialized = .TRUE.
+
+  integer, dimension(8) :: last
+
+  contains
+
+  real function SecBetween(beginDnT, endDnT)
+    integer, dimension(8), intent(in)  :: beginDnT, endDnT
+    real :: days, hours, minutes, seconds
+    integer, parameter :: yr=1, mo=2, day=3, utc=4, hr=5, mn=6, s=7, ms=8
+    
+    continue
+
+    if ( endDnT(day) == beginDnT(day) ) then
+       days = 0
+    else
+       days = 1 ! note: assuming one day
+    endif
+
+    hours   = endDnT(hr) - beginDnT(hr) + 24*days
+    minutes = endDnT(mn) - beginDnT(mn) + 60*hours
+    seconds = endDnT(s)  - beginDnT(s)  + 60*minutes
+
+    SecBetween = seconds + ( endDnT(ms) - beginDnT(ms) ) / 1000.
+
+  end function SecBetween
+    
+  real function secSinceLast()
+
+    integer, dimension(8) :: now
+
+    if (notInitialized) then
+      notInitialized = .FALSE.
+      secSinceLast = 0.0
+      call date_and_time(values=last)
+    else
+      call date_and_time(values=now)
+      secSinceLast = secBetween(last, now)
+      last = now
+    endif
+
+  end function secSinceLast
+
+end module StopWatch

data/examples/StopWatch/StopWatchMT.f90

@@ -0,0 +1,343 @@
+! StopWatchMT.f90 - a Fortran mobility test suite for StopWatch.f90
+!
+! [dynamically generated from StopWatchMT.ftk
+!  by funit Ruby script Sun Apr 09 01:07:09 EDT 2006]
+
+module StopWatchMT
+
+ use StopWatch
+
+ implicit none
+
+ private
+
+ public :: MTStopWatch
+
+ logical :: noAssertFailed
+
+ integer :: numTests          = 0
+ integer :: numAsserts        = 0
+ integer :: numAssertsTested  = 0
+ integer :: numFailures       = 0
+
+integer, dimension(8) :: dateAndTime1, dateAndTime2
+real :: seconds
+
+ contains
+
+
+ subroutine TestSystemDateAndTimeWorks
+
+ call date_and_time(values=dateAndTime1)
+
+  ! IsTrue assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.( dateAndTime1(1) /= -huge(0) )) then
+      print *, " *IsTrue failed* in test SystemDateAndTimeWorks &
+                         &[StopWatchMT.ftk:12]"
+      print *, "  ", " dateAndTime1(1) /= -huge(0)  is not true"
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  ! IsTrue assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.( size(dateAndTime1,1) == 8 )) then
+      print *, " *IsTrue failed* in test SystemDateAndTimeWorks &
+                         &[StopWatchMT.ftk:13]"
+      print *, "  ", " size(dateAndTime1,1) == 8  is not true"
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  numTests = numTests + 1
+
+ end subroutine TestSystemDateAndTimeWorks
+
+
+! test secBetween
+ subroutine TestOneMSecDifference
+
+  dateAndTime1 = (/ 2000, 1, 1, 0, 0, 0, 0, 0 /)
+  dateAndTime2 = (/ 2000, 1, 1, 0, 0, 0, 0, 1 /)
+  seconds = SecBetween(dateAndTime1, dateAndTime2)
+
+  ! IsRealEqual assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.(seconds+2*spacing(real(seconds)).ge. 0.001 &
+             .and.seconds-2*spacing(real(seconds)).le. 0.001)) then
+      print *, " *IsRealEqual failed* in test OneMSecDifference &
+                         &[StopWatchMT.ftk:21]"
+      print *, "  ", " 0.001 (", 0.001,") is not",seconds,"within",2*spacing(real(seconds))
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  numTests = numTests + 1
+
+ end subroutine TestOneMSecDifference
+
+
+ subroutine TestMinuteRollover
+
+  dateAndTime1 = (/ 2000, 1, 1, 0, 0, 0,59, 0 /)
+  dateAndTime2 = (/ 2000, 1, 1, 0, 0, 1, 0, 0 /)
+  seconds = SecBetween(dateAndTime1, dateAndTime2)
+
+  ! IsRealEqual assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.(seconds+2*spacing(real(seconds)).ge. 1.0 &
+             .and.seconds-2*spacing(real(seconds)).le. 1.0)) then
+      print *, " *IsRealEqual failed* in test MinuteRollover &
+                         &[StopWatchMT.ftk:28]"
+      print *, "  ", " 1.0 (", 1.0,") is not",seconds,"within",2*spacing(real(seconds))
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  numTests = numTests + 1
+
+ end subroutine TestMinuteRollover
+
+
+! test secSinceLast
+ subroutine TestInitializationState
+
+
+  ! IsTrue assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.(notInitialized)) then
+      print *, " *IsTrue failed* in test InitializationState &
+                         &[StopWatchMT.ftk:33]"
+      print *, "  ", "notInitialized is not true"
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+  seconds = secSinceLast()
+
+  ! IsFalse assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (notInitialized) then
+      print *, " *IsFalse failed* in test InitializationState &
+                         &[StopWatchMT.ftk:35]"
+      print *, "  ", "notInitialized is not false"
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+  seconds = secSinceLast()
+
+  ! IsFalse assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (notInitialized) then
+      print *, " *IsFalse failed* in test InitializationState &
+                         &[StopWatchMT.ftk:37]"
+      print *, "  ", "notInitialized is not false"
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  numTests = numTests + 1
+
+ end subroutine TestInitializationState
+
+
+ subroutine TestInitiallyReturnsZero
+
+  seconds = secSinceLast()
+
+  ! IsRealEqual assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.(seconds+2*spacing(real(seconds)).ge. 0.0 &
+             .and.seconds-2*spacing(real(seconds)).le. 0.0)) then
+      print *, " *IsRealEqual failed* in test InitiallyReturnsZero &
+                         &[StopWatchMT.ftk:42]"
+      print *, "  ", " 0.0 (", 0.0,") is not",seconds,"within",2*spacing(real(seconds))
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+  call timeDelay(seconds)
+  seconds = secSinceLast()
+
+  ! IsTrue assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.( seconds /= 0.0 )) then
+      print *, " *IsTrue failed* in test InitiallyReturnsZero &
+                         &[StopWatchMT.ftk:45]"
+      print *, "  ", " seconds /= 0.0  is not true"
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  numTests = numTests + 1
+
+ end subroutine TestInitiallyReturnsZero
+
+
+subroutine timeDelay (sum)
+  integer :: i
+  real    :: sum
+  do i = 1, 1000000
+   sum = sum + i
+  enddo
+end subroutine timeDelay
+
+ subroutine TestComputesSeconds
+
+  seconds = secSinceLast()
+  call timeDelay (seconds)
+  seconds = secSinceLast()
+
+  ! IsTrue assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.( seconds > 0.0 )) then
+      print *, " *IsTrue failed* in test ComputesSeconds &
+                         &[StopWatchMT.ftk:60]"
+      print *, "  ", " seconds > 0.0  is not true"
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  numTests = numTests + 1
+
+ end subroutine TestComputesSeconds
+
+
+ subroutine TestComputesSecondsSpecial
+
+  real :: expectedSeconds
+
+  seconds = secSinceLast()
+  dateAndTime1 = last
+  call timeDelay (seconds)
+  seconds = secSinceLast()
+  dateAndTime2 = last
+  expectedSeconds = secBetween(dateAndTime1,dateAndTime2)
+
+  ! IsRealEqual assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (.not.(seconds+2*spacing(real(seconds)).ge. expectedSeconds &
+             .and.seconds-2*spacing(real(seconds)).le. expectedSeconds)) then
+      print *, " *IsRealEqual failed* in test ComputesSecondsSpecial &
+                         &[StopWatchMT.ftk:72]"
+      print *, "  ", " expectedSeconds (", expectedSeconds,") is not",seconds,"within",2*spacing(real(seconds))
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+
+  numTests = numTests + 1
+
+ end subroutine TestComputesSecondsSpecial
+
+
+ subroutine Setup
+  NotInitialized = .TRUE.
+  last    = 0
+  seconds = HUGE(0.0)
+  noAssertFailed = .true.
+ end subroutine Setup
+
+
+ subroutine Teardown
+ end subroutine Teardown
+
+
+ subroutine MTStopWatch( nTests, nAsserts, nAssertsTested, nFailures )
+
+  integer :: nTests
+  integer :: nAsserts
+  integer :: nAssertsTested
+  integer :: nFailures
+
+  continue
+
+  call Setup
+  call TestSystemDateAndTimeWorks
+  call Teardown
+
+  call Setup
+  call TestOneMSecDifference
+  call Teardown
+
+  call Setup
+  call TestMinuteRollover
+  call Teardown
+
+  call Setup
+  call TestInitializationState
+  call Teardown
+
+  call Setup
+  call TestInitiallyReturnsZero
+  call Teardown
+
+  call Setup
+  call TestComputesSeconds
+  call Teardown
+
+  call Setup
+  call TestComputesSecondsSpecial
+  call Teardown
+
+  nTests          = numTests
+  nAsserts        = numAsserts
+  nAssertsTested  = numAssertsTested
+  nFailures       = numFailures
+
+ end subroutine MTStopWatch
+
+end module StopWatchMT