open打开已有文件出错,segmentation fault, invalid memory reference

mao

各位好，
一个很基本的open file问题，不知道为什么会出错。请帮忙看一下。谢谢。

环境：Windows WIN 7 ， Code::Blocks 17.12,

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

program test_file_open
    implicit none
    open(10, file='123.txt',status='old')
    close(10)
end program

出错信息：

我试过如下：
status是new时候，路径下没有对应文件，新建文件正常。 路径下有同名文件，一样错误。
sttus是replace时候，路径下没有对应文件，能够新建文件。路径下有同名文件，一样错误。

现在感觉只要是要打开原路径中原有的文件就会出这个错误。是编译器或者什么需要设置么，还是什么问题。
谢谢

mao

vvt 发表于 2018-1-3 08:24
我用 Code::Blocks 试了一下，没有问题。不会出错。
你想想看，是不是操作上有问题？比如修改了代码但没有 ...

谢谢您的回答。操作应该是对的。各种反复都能重复问题。
我提问后，后来想是不是设置或者什么别的有问题，可能我没有看到。所以就跟着彭国伦老师的书从头一直做到文件操作这部分，期间也没有发现有什么注意事项需要的，所以现在还是有同样的问题。
* 原路径没有文件的话一切正常，可写入。
* 原路径只要有同名文件，status是old， new， replace都是同样的错误。
不知道为什么这样？ 权限也该没有问题，管理员权限。
谢谢。

mao

vvt 发表于 2018-2-4 10:47
我帮不了你了，我自己测试过了，没有问题。我不知道在你的计算机上发生了什么。 ...

谢谢你。这个问题很让人很奔溃，我再看看吧，谢谢

mao

vvt 发表于 2018-2-4 10:47
我帮不了你了，我自己测试过了，没有问题。我不知道在你的计算机上发生了什么。 ...

测试在FTN95（plato）里面一切正常，所以估计 电脑本身软件冲突 和 语句方面没有问题，是不是codeblocks使用前需要什么特别的设置？？

我是如下这样的（基本按照长安大学李博士PPT第一章设置的）：
(1) codeblocks软件源： http://www.codeblocks.org/downloads/26， 直接下载的 codeblocks-17.12mingw_fortran-setup.exe

(2) 设置： 按照 http://fcode.cn/guide-39-1.html， “Code::blocks + GFortran开发环境设置方法”

没有其余动作。请问： 可能还需要其他设置么？谢谢。

mao

vvt 发表于 2018-2-5 09:55
不需要额外设置。那您就换个编译器吧

谢谢

我今天在另外两台电脑上都试了，同样的设置与代码，同样的错误，感觉是个共性问题。肯定是那个地方没弄好。不然不会这样的。只是不是到原因。。。

mao

pasuka 发表于 2018-2-5 10:23
Fortran规范写得很明白，传送门https://docs.oracle.com/cd/E19957-01/805-4939/6j4m0vnaf/index.html

Sta ...

谢谢。
看过OPEN的说明，我的代码应该是对的吧，现在的问题是：Status=‘OLD’时候， 文件存在会出错。

mao

pasuka 发表于 2018-2-5 13:40
文档不是说了吗？'OLD'-- The file already exists (nonexistence is an error). 文件若是不存在则报错
程 ...

谢谢回复，我试过如下代码。
文件不存在时候，新建和写入都正常。再执行一次（此时文件存在，刚新建的）就出错。所以路径应该是没有问题的，并且（io=0）这个文件是正常关掉的，下次打开不应该有问题的么。

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

program main
  implicit none
  logical :: exist
  integer(kind=4):: a(20), i, io
  a=(/(i,i=1,20)/)
  inquire(file="te.dat", exist=exist)
  if (exist) then
    write(*,*) exist
    open(10, file="te.dat", status="old")
    read(10, *) a
    close(10)
  else
    write(*,*) exist
    open(10, file="te.dat", status="new")
    write(10, *) a
    close(10,iostat=io)
    write(*,*) io
  end if
  write(*,"(10I3)") a
end

mao

pasuka 发表于 2018-2-5 14:25
MSYS2 + Gfortran 7.3.0 测试正常
[mw_shl_code=fortran,true]program main
implicit none

谢谢。

我也运行了你的代码，一样的： 第一执行次文件不存在，新建写入正常，第二次执行文件存在，segmentation fault.

这就是目前我遇到的问题：
（1） 文件存在时候，open出错。
（2） 同样的代码大家可以测试通过（环境包括CodeBlocks- by VVT，MSYS2+Gfortran by pasuka）
（3） 我用FTN95+plato也能实现
（4） 但是我在3台不同电脑上用 CodeBlocks+GNU Fortran Complier, 都有问题。

mao

pasuka 发表于 2018-2-5 15:25
gfortran版本呢？CB自带是4.9系列吧？即使5.0版也有反馈出错的
https://sourceforge.net/p/tdm-gcc/bugs/2 ...

谢谢。

现在看起来极有可能是这个编译器版本问题。
弱弱地问下：我不太了解版本，我的版本应该是5.1.0，是么（如下）？我再仔细看下你发的连接，谢谢。

mao

pasuka 发表于 2018-2-5 16:23
命令行下面执行gcc -v或者gfortran -v就能查看版本号

谢谢，我先回去下载个新编译器看看，非常感谢。