anchor.diff:  
     character(len=19), parameter :: fFile = "rnd_selftest.dat"
     integer fUnit, rndInt(25), i, j, k, iLine, rndSeeds(25), currSeed
  -  real(kind=fPrec) rndReal(20,2), rndOut(250,6)
  +  real(kind=fPrec) rndReal(20,2), rndOut(250,8)
   
     call f_requestUnit(fFile,fUnit)
     call f_open(unit=fUnit,file=fFile,formatted=.true.,mode="w")
   
  -  write(fUnit,"(a3,6(1x,a13))") "###","RANECU", "RANLUX", "RANECU","RANLUX","RANECU",  "RANLUX"
  -  write(fUnit,"(a3,6(1x,a13))") "###","Uniform","Uniform","Normal","Normal","Rayleigh","Rayleigh"
  +  write(fUnit,"(a3,8(1x,a13))") "###","RANECU", "RANLUX", "RANECU","RANLUX","RANECU",  "RANLUX",  "RANECU",    "RANLUX"
  +  write(fUnit,"(a3,8(1x,a13))") "###","Uniform","Uniform","Normal","Normal","Rayleigh","Rayleigh","Irwin-Hall","Irwin-Hall"
   
     call rnd_uniformInt(rndser_timeSeed1, rndSeeds, 25,  0, 99) ! Some random values to send as "seeds"
     call rnd_uniformInt(rndser_timeSeed1, rndInt,   25, 10, 20) ! The sizes of each sequence
     rndSeeds(25) = 0
  -  do k=1,5,2
  +  do k=1,7,2
   
       iLine = 1
       call rnd_setSeed(rndser_genSeq1, 1, currSeed, .true.)
  
positive.code: 
  end subroutine rnd_rayleigh
  
  end module mod_random
  
negative.code:   end do
  
    do i=1,250
      write(fUnit,"(i3,8(1x,f13.9))") i,rndOut(i,1:8)
    end do
  
    ! Reset seeds and close file
  