Last change
on this file since 69 was
69,
checked in by g7moreau, 12 years ago
|
- Test case with SIGUSR1 and SIGUSR2
|
File size:
932 bytes
|
Rev | Line | |
---|
| 1 | ! 2012/04/20 (C) Gabriel Moreau |
---|
| 2 | ! |
---|
| 3 | ! rm sgck_test1 *.o *.mod |
---|
| 4 | ! gfortran -c signal_checkpoint.F90 && gfortran -o sgck_test1 sgck_test1.f90 signal_checkpoint.o |
---|
| 5 | ! ./sgck_test1 |
---|
| 6 | ! |
---|
| 7 | ! ps fux | grep ./sgck_test1 | grep -v grep | awk '{print $2}' | xargs kill -USR2 |
---|
| 8 | ! |
---|
| 9 | ! ifort -c signal_checkpoint.F90 && ifort -o sgck_test1 sgck_test1.f90 signal_checkpoint.o |
---|
| 10 | |
---|
| 11 | program sgck_test1 |
---|
| 12 | |
---|
| 13 | use Signal_Checkpoint, only: & |
---|
| 14 | signal_checkpoint_connect, & |
---|
| 15 | signal_checkpoint_is_received, & |
---|
| 16 | signal_checkpoint_received_times, & |
---|
| 17 | SIGUSR2, & |
---|
| 18 | SIGUSR1 |
---|
| 19 | |
---|
| 20 | integer :: I |
---|
| 21 | |
---|
| 22 | call signal_checkpoint_connect(SIGUSR2) |
---|
| 23 | call signal_checkpoint_connect(SIGUSR1) |
---|
| 24 | |
---|
| 25 | print *, "initialising phase" |
---|
| 26 | |
---|
| 27 | do while (.not. signal_checkpoint_is_received()) |
---|
| 28 | do I = 1, 15 |
---|
| 29 | print *, "runnning in the loop ", I, signal_checkpoint_received_times() |
---|
| 30 | call sleep (1) |
---|
| 31 | end do |
---|
| 32 | end do |
---|
| 33 | |
---|
| 34 | print *, "finishing phase" |
---|
| 35 | end program |
---|
Note: See
TracBrowser
for help on using the repository browser.