Fortran Coder

标题: 出现错误Segmentation fault - invalid memory reference. [打印本页]

---

作者: hpa    时间: 2020-3-9 16:14
标题: 出现错误Segmentation fault - invalid memory reference.


Program received signal SIGSEGV: Segmentation fault - invalid memory reference.
Backtrace for this error:#0  ffffffff
编程时没有问题，但是在运行时console中就会出现这个问题，不知道是哪里出了问题

---

作者: li913    时间: 2020-3-9 17:21
如果你用的gfortran，这可能是软件bug，换一个高版本的。如果要排除软件问题，换一个简单的程序试试。

---

作者: hpa    时间: 2020-3-10 08:49

li913 发表于 2020-3-9 17:21
如果你用的gfortran，这可能是软件bug，换一个高版本的。如果要排除软件问题，换一个简单的程序试试。 ...

您好，我用的这个是 simply Fortran

---

作者: li913    时间: 2020-3-11 00:05
simply fortran 核心还是 gfortran

---

作者: hpa    时间: 2020-3-11 09:43

li913 发表于 2020-3-11 00:05
simply fortran 核心还是 gfortran

简单的代码是没有问题的，就是我写了这个函数运行以后他就出现了这个错误

---

作者: hpa    时间: 2020-3-11 09:59

li913 发表于 2020-3-11 00:05
simply fortran 核心还是 gfortran

但是加了一个程序模块，并调用其中的子程序时，就会出现这个问题

---

作者: fcode    时间: 2020-3-11 13:28
给出代码。

---

作者: hpa    时间: 2020-3-12 10:26

fcode 发表于 2020-3-11 13:28
给出代码。

[Fortran] 纯文本查看 复制代码

Program main

use timer_supports

implicit none



  Integer,parameter :: length=1000

  integer i , f , idays

  integer d

  Character(LEN=length) A,B,Filename

  Integer(kind=4)::Column, Row, K,L

  integer , allocatable :: c( : , : )

  Column=0;Row=0;K=0;L=1;filename="ztzl-1.txt"

  Open (55,file=Filename)

  Read(55,'(a1000)') A

  column=GetDataN(A)!//改成这个函数，具体实现在下面的代码

  CLOSE(55)

  Open (55,file=Filename)

  Do

    Read(55,*,iostat=k) B

    If( k /= 0 ) Exit

    Row = Row + 1

  End Do

  Write(*,"(A5,I6,5X,A7,I2)") "Row=",Row,"Column=",Column!读取行数

  allocate(c(column-1,row))

  rewind(55)

  Do i = 1,Row

    read(55,*) d,c(:,i)!//1改成 i

  End Do

  Close(55)!将数据转化为数组

  

  call daysfromdate(1954,1,1,2007,12,31,0)

  print *, idays

contains



  Integer Function GetDataN( cStr )

    Character( Len = * ) , Intent( IN ) :: cStr

    Integer :: i

    Logical :: bIsSeparator , bIsQuote

    GetDataN = 0

    bIsSeparator = .TRUE.

    bIsQuote = .FALSE.

    Do i = 1 , Len_Trim( cStr )

      Select Case( cStr(i:i) )

      Case( '"' , "'" ) !// 如果遇到引号

        If ( .Not.bIsQuote ) GetDataN = GetDataN + 1  !//如果不在引号中，则增加一个数据

        bIsQuote = .Not.bIsQuote !// 引号结束或开始

        bIsSeparator = .FALSE.

      Case( " " , "," , char(9) ) !// 如果遇到分隔符

        If ( .Not.bIsQuote ) then  !// 分隔符如果不在引号中

          bIsSeparator = .TRUE.

        End If

      Case Default      

        If ( bIsSeparator ) then

          GetDataN = GetDataN + 1

        End If

        bIsSeparator = .FALSE.

      End Select

    End Do

  End Function GetDataN

End Program Main

这个代码主要就是您上次帮我改的，就做了一点儿改动，在改动之前是可以正常运行的，就是在开头加了一个use，然后在中间call了一下模块中的函数，我把这个模块也发给您。

mod_timer_supports.for

2020-3-12 10:25 上传

点击文件名下载附件

17.29 KB, 下载次数: 2

---

作者: fcode    时间: 2020-3-12 11:56
给出输入文件。

---

作者: hpa    时间: 2020-3-12 12:31

fcode 发表于 2020-3-12 11:56
给出输入文件。

您好，前辈，由于原文件是1.08M的，所以我删去了几年的数据，格式什么的都没有变化，只是少了数行。

ztzl-1.txt

2020-3-12 12:30 上传

点击文件名下载附件

984.05 KB, 下载次数: 1

---

作者: kyra    时间: 2020-3-13 17:10
主程序
call daysfromdate(1954,1,1,2007,12,31,0)
改为
  idays=0
  call daysfromdate(1954,1,1,2007,12,31,idays)
  print *, idays

---

作者: hpa    时间: 2020-3-14 10:31
好的，我试一下哈，前辈

---

作者: hpa    时间: 2020-3-14 10:34

kyra 发表于 2020-3-13 17:10
主程序
call daysfromdate(1954,1,1,2007,12,31,0)
改为

谢谢前辈了，可以运行了

---

作者: wintry    时间: 2020-6-4 13:52
我这两天也遇到了同样的问题，相同的代码一个电脑上可以运行，另一台电脑上就是跟你一样的错误代码。
后来查资料发现是gfortran编译器的问题，可以换一下gfortran的版本或者换一台电脑试试。
你可以参考这个：
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=58913

---

作者: hpa    时间: 2020-6-9 00:45

wintry 发表于 2020-6-4 13:52
我这两天也遇到了同样的问题，相同的代码一个电脑上可以运行，另一台电脑上就是跟你一样的错误代码。
后来 ...

好的，谢谢你啦

---

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)

Powered by Discuz! X3.2