[Bug libfortran/66557] New: gfortran gives segfault error when trying to replace file?

[mail.yogeshyadav at gmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66557

            Bug ID: 66557
           Summary: gfortran gives segfault error when trying to replace
                    file?
           Product: gcc
           Version: 5.1.0
            Status: UNCONFIRMED
          Severity: blocker
          Priority: P3
         Component: libfortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: mail.yogeshyadav at gmail dot com
  Target Milestone: ---

program test
implicit none
open(100, file="a.dat", status="replace")
end program test

When I try to run this program, it runs fine the first time when the file has
not been created. But an attempt to run the program again (when the file a.dat
exists and should be replaced) gives segfault error. Here is what I found using
gdb.

Program received signal SIGSEGV, Segmentation fault.
0x00007ff95deb1150 in strcmp () from C:\Windows\system32\msvcrt.dll

I am using GNU Fortran (x86_64-win32-seh-rev0, Built by MinGW-W64 project)
5.1.0 with target as Target: x86_64-w64-mingw32. I didn't use any extra
compiler flags except -g.
Also since gdb mentions Windows system files, here is which OS I use - Windows
8.1