https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95546
Bug ID: 95546
Summary: Random Fortran test failures
Product: gcc
Version: 11.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: hjl.tools at gmail dot com
CC: skpgkp2 at gmail dot com
Target Milestone: ---
I got random failures:
t line 12 of file
/export/gnu/import/git/gcc-test-master-intel64/src-master/gcc/testsuite/gfortran.dg/eof_4.f90
(unit = 99)
Fortran runtime error: Cannot open file 'test.dat': File exists
Error termination. Backtrace:
#0 0x7f6dc5baf37c in already_open
at ../../../src-master/libgfortran/io/open.c:720
#1 0x4012bb in ???
#2 0x4034df in ???
#3 0x7f6dc55e2071 in ???
#4 0x40115d in ???
#5 0xffffffffffffffff in ???
FAIL: gfortran.dg/eof_4.f90 -O0 execution test
There are
gfortran.dg/direct_io_12.f90:open(99, file='test.dat', form='unformatted',
access='direct', recl=size*8)
gfortran.dg/endfile.f90:
open(unit=10,file='test.dat',access='sequential',status='replace')
gfortran.dg/endfile.f90:
open(unit=10,file='test.dat',access='sequential',status='old')
gfortran.dg/eof_4.f90:open(99, file="test.dat", access="stream",
form="unformatted", status="new")
gfortran.dg/eof_4.f90:open(99, file="test.dat")
gfortran.dg/eof_4.f90:open(99, file="test.dat", access="stream",
form="unformatted", status="new")
gfortran.dg/eof_4.f90:open(99, file="test.dat")
gfortran.dg/eof_4.f90:open(99, file="test.dat", access="stream",
form="unformatted", status="new")
gfortran.dg/eof_4.f90:open(99, file="test.dat")
gfortran.dg/eof_4.f90:open(99, file="test.dat", access="stream",
form="unformatted", status="new")
gfortran.dg/eof_4.f90:open(99, file="test.dat")
gfortran.dg/eof_4.f90:open(99, file="test.dat", access="stream",
form="unformatted", status="new")
gfortran.dg/eof_4.f90:open(99, file="test.dat")
gfortran.dg/eof_4.f90:open(99, file="test.dat", access="stream",
form="unformatted", status="new")
gfortran.dg/eof_4.f90:open(99, file="test.dat")
gfortran.dg/eof_4.f90:open(99, file="test.dat", access="stream",
form="unformatted", status="new")
gfortran.dg/eof_4.f90:open(99, file="test.dat")
gfortran.dg/implied_do_io_1.f90: open(10,file="test.dat")
gfortran.dg/list_read_7.f90:open(unit=20, file='test.dat',form='FORMATTED',
status="replace")
gfortran.dg/namelist_76.f90:
open(unit=10,form='formatted',status='replace',action='write',file='test.dat')
gfortran.dg/namelist_97.f90: open (unit=10, file='test.dat', form=my_form)
gfortran.dg/open_new_segv.f90: ! Make sure pr64770test.dat exists
gfortran.dg/open_new_segv.f90: open(99, file="pr64770test.dat",
status="replace")
gfortran.dg/open_new_segv.f90: open(99, file="pr64770test.dat",
access="stream", form="unformatted", &
gfortran.dg/open_new_segv.f90:! { dg-output "Fortran runtime error: Cannot open
file .pr64770test.dat.:" }
gfortran.dg/open_new_segv.f90:! { dg-final { remote_file build delete
"pr64770test.dat" } }
gfortran.dg/read_eof_8.f90: open(unit=25,file="test.dat",status="replace", &
