Simulate sleep

Author: certik

src/tests/bitsets/test_stdlib_bitset_large.f90

@@ -238,6 +238,7 @@ subroutine test_io()
  character(*), parameter:: procedure = 'TEST_IO'
 
  integer :: unit
+ integer :: j, i
 
  write(*,*)
  write(*,*) 'Test bitset I/O: input, read_bitset, output, and ' // &
@@ -251,8 +252,13 @@ subroutine test_io()
  call set0 % write_bitset(unit)
  close( unit )
 
- ! Wait 10 seconds, in the hope that the file gets saved before we open it
- call sleep(10)
+ ! Sleep
+ print *, "sleeping"
+ i = 0
+ do j = 1, 1000000000
+ i = i + 1
+ end do
+ print *, "up"
 
  open( newunit=unit, file='test123.txt', status='old', &
  form='formatted', action='read' )