英特尔Fortran错误“未分配可分配数组或指针”

当我试图运行一个庞大的Fortran代码(该代码是使用英特尔编译器13.1.3.192版编译的)时,它给了我这样的错误消息:

... 
Info[FDFI_Setup]: HPDF code version number is  1.00246
forrtl: severe (153): allocatable array or pointer is not allocated
Image              PC                Routine            Line        Source
arts               0000000002AD96BE  Unknown               Unknown  Unknown
arts               0000000002AD8156  Unknown               Unknown  Unknown
arts               0000000002A87532  Unknown               Unknown  Unknown
...

尽管如此,如果我在其中一个子例程中插入一个小的write语句(这只是为了检查代码,而不是为了干扰代码的原始目的),如下所示(我无法放入所有代码,因为它们太大了):

    ...
    endif
    call GetInputLine(Unit,line,eof,err)
  enddo

  if(err) return

  ! - [elfsummer] 20140815 Checkpoint 23
  open(unit = 1, file = '/bin/monitor/log_checkpoint',status='old',position='append')
  write(1,*) "BEFORE checking required keys: so far so good!"
  close(1)

  ! check required keys
  ! for modes = 2,3, P and T are the required keys
  if(StrmDat%ModeCI==2.or.StrmDat%ModeCI==3) then
  ...

然后,上面显示的错误消息突然消失,代码可以正确运行!我还尝试在源代码的其他位置插入这样的write语句,但上面的错误消息仍然存在。

根据 Intel's documentation :

严重(153):未分配可分配数组或指针 对于$IOS_INVDEALLOC。当您尝试取消分配Fortran 90可分配数组或指针时,必须已分配该数组或指针。必须先分配该数组和指针,然后才能再次取消分配。 注意:STAT可以在DEALLOCATE语句中返回此错误。

然而,我看不到错误与我添加到代码中的“write语句”之间有任何关系。在我添加write语句的位置没有这样的“allocate”命令。

所以我很困惑。有人知道原因吗?非常感谢您的帮助!!

使用回溯选项,我可以直接找到错误源:

    subroutine StringRead(Str,delimiter,StrArray,ns)   ! [private] read strings separated by    delimiter
    implicit none
    character*(*),intent(in)    :: Str
    character*(*),intent(in)    :: delimiter
    character*(*),pointer       :: StrArray(:)
    integer,intent(out)         :: ns
! - local variables
    character(len=len(Str))     :: tline
    integer                     :: nvalue,nvalue_max
    character(len=len(StrArray)),pointer:: sarray(:),sarray_bak(:)
    integer                     :: len_a,len_d,i

    ! deallocate StrArray
    if(associated(StrArray)) deallocate(StrArray)

根据回溯给我的信息,错误出现在上面显示的最后一条语句中。如果我注释掉这个语句,那么“forrtl:severe(153)”错误将在生成新错误时消失。。。但是,我仍然不认为这种说法本身会出错。。。它的行为就好像它忽略了if…条件,直接读取了解除分配的赞扬,这在我看来很奇怪。