Changeset 70 for trunk/signal-checkpoint/test_sgck1.f90

Timestamp:

May 25, 2012, 6:16:35 PM (12 years ago)

Author:

g7moreau

Message:

• Begin error code return Not finish...

File:

• trunk/signal-checkpoint/test_sgck1.f90 (modified) (3 diffs)

trunk/signal-checkpoint/test_sgck1.f90

@@ -15 +15 @@
       signal_checkpoint_is_received, &
       signal_checkpoint_received_times, &
+      signal_checkpoint_ask_for_exit_code, &
       SIGUSR2, &
       SIGUSR1
@@ -21 +22 @@
 
    call signal_checkpoint_connect(SIGUSR2)
-   call signal_checkpoint_connect(SIGUSR1)
+   call signal_checkpoint_connect(SIGUSR1, EXIT=.true.)
 
    print *, "initialising phase"
@@ -33 +34 @@
 
    print *, "finishing phase"
+
+   if (signal_checkpoint_ask_for_exit_code()) then
+      stop 1
+   end if
 end program