Question

在使用一些迭代过程开发Fortran上的程序时，我面临着手动停止迭代的必要性（在没有程序终止的情况下退出迭代循环）。

我决定向流程发送信号。我选择了SIGALRM。我已经检查过它可能被困住而没有任何意外后果。

当接收到信号时，标志值改变。在迭代循环内检查此标志，如果flag为true则退出。这些代码的样本如下所示。

!file mymod.f90
module mymod
use ifport
integer*4            :: err
integer*4            :: SIGNSET
integer*4, parameter :: mySignal=14
logical*1            :: toStopIteration

contains
!   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !
    integer*4 function setTrap() result(ret)
    implicit none

    call PXFSTRUCTCREATE('sigset',SIGNSET,err)
    call PXFSIGADDSET(SIGNSET,mySignal,err) !add my signal to the set.

    ret=0; return
    end function setTrap
!   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !
    integer*4 function onTrap(sig_num) result(rcode)
    implicit none
    integer*4 :: sig_num,err

    rcode=0
    select case (sig_num)
        case(mySignal)
            write (*,*) 'Signal occurred. Stop iteration called'
            write (*,*) 'flag: ',toStopIteration
            toStopIteration=.true.
            write (*,*) 'flag: ',toStopIteration
            rcode=1
            return
        case (SIGINT) ; stop
        case (SIGTERM); stop
        case (SIGABRT); stop
    end select

    end function onTrap
!   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !
end module mymod

!file main.f90
program main
use mymod
implicit none
integer*4 :: i,j,N,Niters,sum1

err=setTrap()
err=signal(mySignal, onTrap, -1)

toStopIteration=.false.

open (1,file='output')
write (*,*) 'PID=',getpid()
write (1,*) 'Outside',toStopIteration

N=5000000; Niters=100000

do i = 1,Niters
    if (toStopIteration) then
        toStopIteration=.false.
        exit
    endif

    sum1=0
    do j = 1,N
        sum1=sum1+j
    enddo
    write (1,*) i,toStopIteration,sum1
enddo

write (*,*) 'Procedure was terminated due to signal received. The last iteration was', i
write (*,*) 'Now I will do other job for you.'

stop
end program main

应用程序是使用ifort编译的：ifort -c -O2 -traceback。当我向进程kill -14 pid发送信号时，我得到输出到终端：

 Signal occurred. Stop iteration called
 flag:  F
 flag:  T

但迭代循环仍然在运行，并且在文件中写入，变量“toStopIteration”等于false。

无意中，我发现使用-O0 -traceback参数编译时，它可以正常工作。为什么会这样？变量“toStopIteration”是否变为具有此类优化级别的本地？我该怎么做才能使它正常工作？

提前致谢。 MuKeP。

Answer 1

正如Lorri回答的那样（不幸的是，这个简洁但正确的答案已被错误的评论删除） - 尝试使用toStopIteration上的volatile属性。这告诉编译器该变量可能被其他东西重新定义，否则从编译器可见的源看起来，该变量的值在迭代中不会改变，因此每次迭代都没有测试点。

在Fortran中捕获信号时更改变量值

1 个答案: