! 2012/04/20 (C) Gabriel Moreau
!
! rm sgck-test1 *.o *.mod
! gfortran -c signal_checkpoint.F90 && gfortran -o sgck-test1 sgck-test1.f90 signal_checkpoint.o
! ./sgck-test1
!
! ps fux | grep ./sgck-test1 | grep -v grep | awk '{print $2}' | xargs kill -USR2
!
! ifort -c signal_checkpoint.F90 && ifort -o sgck-test1 sgck-test1.f90 signal_checkpoint.o

program sgck-test1

  use Signal_Checkpoint, only: &
  	signal_checkpoint_connect, &
  	signal_checkpoint_is_received, &
	signal_checkpoint_received_times, &
	SIGUSR2

  integer :: I

  call signal_checkpoint_connect(SIGUSR2)

  print *, "initialising phase"

  do while (.not. signal_checkpoint_is_received())
     do I = 1, 15
  	  print *, "runnning in the loop ", I, signal_checkpoint_received_times()
  	  call sleep (1)
     end do
  end do

  print *, "finishing phase"
end program