[quote]采用 integer*8 数据类型[/quote]

???不明白，能讲清楚吗

你可以试试在allocate语句中间加入 stat子句，查看返回值，0为正确分配，如果是正数值可以查看编译器的说明来确定具体错误原因。

[quote]你可以试试在allocate语句中间加入 stat子句，查看返回值，0为正确分配，如果是正数值可以查看编译器的说明来确定具体错误原因。[/quote]

试过了，程序正常运行时，stat返回值为0;程序运行出问题时,无法看到stat返回值

好像链表申请内存时不是这么用的。
 ALLOCATE(CTP)
                    CTP%LPP=J
                    CTP%NEXTP=>LCP(I)%ENDP
                    LCP(I)%ENDP=>CTP

用这个替换试试
ALLOCATE( LCP(I)%ENDP , STAT = error )
  LCP(I)%ENDP%LPP = J
  LCP(I)%ENDP%NEXTP => LCP(I)%ENDP

注意 LCP(I)%ENDP的对应的type。

问题已解决，感谢各位的热情参与！

我没找到错误的原因，不过我修改了内存的分配与释放的频率后，问题没有再出现。还是希望能有高手出来解释下为什么！