OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix race on temp file in gfortran tests.

Browse Source 
2015-10-26  Christophe Lyon  <christophe.lyon@linaro.org>

	* gfortran.dg/chmod_1.f90: Add suffix to the temporary filename to
	make it unique per testcase.
	* gfortran.dg/chmod_2.f90: Likewise.
	* gfortran.dg/chmod_3.f90: Likewise.
	* gfortran.dg/direct_io_8.f90: Likewise.
	* gfortran.dg/f2003_inquire_1.f03: Likewise.
	* gfortran.dg/f2003_io_1.f03: Likewise.
	* gfortran.dg/f2003_io_2.f03: Likewise.
	* gfortran.dg/f2003_io_8.f03: Likewise.
	* gfortran.dg/inquire_size.f90: Likewise.
	* gfortran.dg/namelist_66.f90: Likewise.
	* gfortran.dg/namelist_82.f90: Likewise.
	* gfortran.dg/namelist_87.f90: Likewise.
	* gfortran.dg/open_negative_unit_1.f90: Likewise.
	* gfortran.dg/open_new.f90: Likewise.
	* gfortran.dg/stat_1.f90: Likewise.
	* gfortran.dg/stat_2.f90: Likewise.
	* gfortran.dg/streamio_15.f90: Likewise.
	* gfortran.dg/unf_read_corrupted_1.f90: Likewise.

From-SVN: r229319
This commit is contained in:
Christophe Lyon 2015-10-26 10:37:22 +00:00 committed by Christophe Lyon
parent a9fdbccb85
commit 51022ff731
19 changed files with 50 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,25 @@
2015-10-26 Christophe Lyon <christophe.lyon@linaro.org>
* gfortran.dg/chmod_1.f90: Add suffix to the temporary filename to
make it unique per testcase.
* gfortran.dg/chmod_2.f90: Likewise.
* gfortran.dg/chmod_3.f90: Likewise.
* gfortran.dg/direct_io_8.f90: Likewise.
* gfortran.dg/f2003_inquire_1.f03: Likewise.
* gfortran.dg/f2003_io_1.f03: Likewise.
* gfortran.dg/f2003_io_2.f03: Likewise.
* gfortran.dg/f2003_io_8.f03: Likewise.
* gfortran.dg/inquire_size.f90: Likewise.
* gfortran.dg/namelist_66.f90: Likewise.
* gfortran.dg/namelist_82.f90: Likewise.
* gfortran.dg/namelist_87.f90: Likewise.
* gfortran.dg/open_negative_unit_1.f90: Likewise.
* gfortran.dg/open_new.f90: Likewise.
* gfortran.dg/stat_1.f90: Likewise.
* gfortran.dg/stat_2.f90: Likewise.
* gfortran.dg/streamio_15.f90: Likewise.
* gfortran.dg/unf_read_corrupted_1.f90: Likewise.
2015-10-26 Kyrylo Tkachov <kyrylo.tkachov@arm.com>
PR middle-end/67989

2
gcc/testsuite/gfortran.dg/chmod_1.f90
View File

@ -2,7 +2,7 @@
! { dg-options "-std=gnu" }
! See PR38956. Test fails on cygwin when user has Administrator rights
implicit none
character(len=*), parameter :: n = "foobar_file"
character(len=*), parameter :: n = "foobar_file_chmod_1"
integer :: i
open (10,file=n)

2
gcc/testsuite/gfortran.dg/chmod_2.f90
View File

@ -2,7 +2,7 @@
! { dg-options "-std=gnu" }
! See PR38956. Test fails on cygwin when user has Administrator rights
implicit none
character(len=*), parameter :: n = "foobar_file"
character(len=*), parameter :: n = "foobar_file_chmod_2"
integer :: i
open (10,file=n)

2
gcc/testsuite/gfortran.dg/chmod_3.f90
View File

@ -2,7 +2,7 @@
! { dg-options "-std=gnu -fdefault-integer-8" }
! See PR38956. Test fails on cygwin when user has Administrator rights
implicit none
character(len=*), parameter :: n = "foobar_file"
character(len=*), parameter :: n = "foobar_file_chmod_3"
integer :: i
open (10,file=n)

2
gcc/testsuite/gfortran.dg/direct_io_8.f90
View File

@ -7,7 +7,7 @@ program main
i=44
ir = -42
open(11,file="foo.dat")
open(11,file="foo_direct_io_8.dat")
! Try a direct access read on a formatted sequential rile
READ (11, REC = I, ERR = 99) TEMP_CHANGES
call abort

2
gcc/testsuite/gfortran.dg/f2003_inquire_1.f03
View File

@ -4,7 +4,7 @@ character(25) :: sround, ssign, sasynchronous, sdecimal, sencoding
integer :: vsize, vid
logical :: vpending
open(10, file='mydata', asynchronous="yes", blank="null", &
open(10, file='mydata_f2003_inquire_1', asynchronous="yes", blank="null", &
& decimal="comma", encoding="utf-8", sign="plus")
inquire(unit=10, round=sround, sign=ssign, size=vsize, id=vid, &

2
gcc/testsuite/gfortran.dg/f2003_io_1.f03
View File

@ -8,7 +8,7 @@ character(25) :: msg
a = 23.45
b = 0.0
open(10, file='mydata', asynchronous="yes", blank="null")
open(10, file='mydata_f2003_io_1', asynchronous="yes", blank="null")
write(10,'(10f8.3)', asynchronous="yes", decimal="comma", id=j) a
rewind(10)

2
gcc/testsuite/gfortran.dg/f2003_io_2.f03
View File

@ -7,7 +7,7 @@ character(25) :: msg
real, dimension(10) :: a, b
a = 43.21
open(10, file='mydata', asynchronous="yes")
open(10, file='mydata_f2003_io_2', asynchronous="yes")
write(10,'(10f8.3)', asynchronous="yes", decimal="comma") a
rewind(10)
read(10,'(10f8.3)', asynchronous="yes", decimal="comma", id=idvar) b

2
gcc/testsuite/gfortran.dg/f2003_io_8.f03
View File

@ -6,7 +6,7 @@ real :: c
integer :: istat, j
character(25) :: msg
open(10, file='mydata', asynchronous="yes", blank="null")
open(10, file='mydata_f2003_io_8', asynchronous="yes", blank="null")
write(10,'(10f8.3)', asynchronous='no', decimal="comma", id=j) a ! { dg-error "must be with ASYNCHRONOUS=" }
read(10,'(10f8.3)', id=j, decimal="comma", blank="zero") b ! { dg-error "must be with ASYNCHRONOUS=" }
read(10,'(10f8.3)', asynchronous=msg, decimal="comma", blank="zero") b ! { dg-error "must be an initialization expression" }

10
gcc/testsuite/gfortran.dg/inquire_size.f90
View File

@ -4,7 +4,7 @@ integer :: i
character(30) :: aname = "noname"
logical :: is_named
open(25, file="testfile", status="replace", access="stream", form="unformatted")
open(25, file="testfile_inquire_size", status="replace", access="stream", form="unformatted")
do i=1,100
write(25) i, "abcdefghijklmnopqrstuvwxyz"
enddo
@ -14,16 +14,16 @@ enddo
inquire(unit=25, named=is_named, name=aname, size=i)
if (.not.is_named) call abort
if (aname /= "testfile") call abort
if (aname /= "testfile_inquire_size") call abort
if (i /= 3000) call abort
inquire(file="testfile", size=i)
inquire(file="testfile_inquire_size", size=i)
if (.not.is_named) call abort
if (aname /= "testfile") call abort
if (aname /= "testfile_inquire_size") call abort
if (i /= 3000) call abort
close(25, status="delete")
inquire(file="testfile", size=i)
inquire(file="testfile_inquire_size", size=i)
if (i /= -1) call abort
end

2
gcc/testsuite/gfortran.dg/namelist_66.f90
View File

@ -17,7 +17,7 @@ end type qptracer
type(qptracer) , dimension(3) :: qtracer
namelist/naml2/ qtracer
open (99, file='nml.dat', status="replace")
open (99, file='nml_66.dat', status="replace")
write(99,*) "&naml1"
write(99,*) " tracer(1) = 'aa', .true."
write(99,*) " tracer(2) = 'bb', .true."

2
gcc/testsuite/gfortran.dg/namelist_82.f90
View File

@ -10,7 +10,7 @@ namelist/naml1/ tracer
tracer(:) = ptracer('XXX', .false.)
open (99, file='nml.dat', status="replace")
open (99, file='nml_82.dat', status="replace")
write(99,*) "&naml1"
!write(99,*) " tracer(2) = 'bb' , .true."
write(99,*) " tracer(:) = 'aa' , .true."

2
gcc/testsuite/gfortran.dg/namelist_87.f90
View File

@ -30,7 +30,7 @@ character(3) :: c2 = 'YYY'
character(3) :: c3 = 'ZZZ'
namelist /nml/ i, r1,r2,r3,r4,r5,c,ll,c1,c2,c3
open (99, file='nml.dat', status="replace")
open (99, file='nml_87.dat', status="replace")
write(99,*) "&nml"
write(99,*) " i=42!11" ! Fixed BUG: wrong result: Unmodified, no error
write(99,*) " r1=43!11" ! Fixed BUG: wrong result: Unmodified, no error

8
gcc/testsuite/gfortran.dg/open_negative_unit_1.f90
View File

@ -9,7 +9,7 @@ program nutest
logical l
integer id, ios
open(newunit=id, file="foo.txt", iostat=ios)
open(newunit=id, file="foo_open_negative_unit_1.txt", iostat=ios)
if (ios /= 0) call abort
open(id, file="bar.txt", iostat=ios)
@ -17,14 +17,14 @@ program nutest
close(id, status="delete")
open(unit=10, file="foo.txt", status="old", iostat=ios)
open(unit=10, file="foo_open_negative_unit_1.txt", status="old", iostat=ios)
if (ios /= 0) call abort
close(10, status="delete")
open(-10, file="foo.txt", iostat=ios)
open(-10, file="foo_open_negative_unit_1.txt", iostat=ios)
if (ios == 0) call abort
inquire(file="foo.txt", exist=l)
inquire(file="foo_open_negative_unit_1.txt", exist=l)
if (l) call abort
end program nutest

6
gcc/testsuite/gfortran.dg/open_new.f90
View File

@ -3,9 +3,9 @@
! status="new" is an error
program main
nout = 10
open(nout, file="foo.dat", status="replace") ! make sure foo.dat exists
open(nout, file="foo_open_new.dat", status="replace") ! make sure foo_open_new.dat exists
close(nout)
open(nout, file="foo.dat", status="new",err=100)
open(nout, file="foo_open_new.dat", status="new",err=100)
call abort ! This should never happen
100 call unlink ("foo.dat")
100 call unlink ("foo_open_new.dat")
end program main

2
gcc/testsuite/gfortran.dg/stat_1.f90
View File

@ -1,7 +1,7 @@
! { dg-do run }
! { dg-skip-if "" { *-*-mingw* spu-*-* } { "*" } { "" } }
! { dg-options "-std=gnu" }
character(len=*), parameter :: f = "testfile"
character(len=*), parameter :: f = "testfile_stat_1"
integer :: s1(13), r1, s2(13), r2, s3(13), r3, d(13), rd
open (10,file=f)

2
gcc/testsuite/gfortran.dg/stat_2.f90
View File

@ -1,7 +1,7 @@
! { dg-do run }
! { dg-skip-if "" { *-*-mingw* spu-*-* } { "*" } { "" } }
! { dg-options "-std=gnu" }
character(len=*), parameter :: f = "testfile"
character(len=*), parameter :: f = "testfile_stat_2"
integer :: s1(13), r1, s2(13), r2, s3(13), r3, d(13), rd
open (10,file=f)

2
gcc/testsuite/gfortran.dg/streamio_15.f90
View File

@ -13,7 +13,7 @@ program main
if (newline_length < 1 .or. newline_length > 2) call abort
close(20)
open(20,file="foo.txt",form="formatted",access="stream")
open(20,file="foo_streamio_15.txt",form="formatted",access="stream")
write(20,'(A)') '123456'
write(20,'(A)') 'abcdef'
write(20,'(A)') 'qwerty'

4
gcc/testsuite/gfortran.dg/unf_read_corrupted_1.f90
View File

@ -10,13 +10,13 @@ program main
! Write out a truncated unformatted sequential file by
! using unformatted stream.
open (10, form="unformatted", access="stream", file="foo.dat", &
open (10, form="unformatted", access="stream", file="foo_unf_read_corrupted_1.dat", &
status="unknown")
write (10) 16_4, 1_4
close (10, status="keep")
! Try to read
open (10, file="foo.dat", form="unformatted", access="sequential")
open (10, file="foo_unf_read_corrupted_1.dat", form="unformatted", access="sequential")
i1 = 0
i2 = 0
read (10, iostat=ios, iomsg=msg) i1, i2