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

Fix some DEC I/O testcases.

Browse Source 
gcc/testsuite/gfortran.dg/
	* dec_io_5.f90, dec_io_6.f90: Don't use "test.txt", and use
	dg-shouldfail/dg-output instead of XFAIL.

From-SVN: r241623
This commit is contained in:
Fritz Reese 2016-10-27 14:14:44 +00:00 committed by Fritz Reese
parent 953f075823
commit 9a6ac422ec
3 changed files with 29 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2016-10-27 Fritz Reese <fritzoreese@gmail.com>
* gfortran.dg/dec_io_5.f90: Don't use "test.txt", and use
dg-shouldfail/dg-output instead of XFAIL.
* gfortran.dg/dec_io_6.f90: Likewise.
2016-10-27 Thomas Preud'homme <thomas.preudhomme@arm.com>
* gcc.target/arm/atomic-comp-swap-release-acquire-3.c: New test.

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

@ -1,5 +1,6 @@
! { dg-do run "xfail *-*-*" }
! { dg-do run }
! { dg-options "-fdec" }
! { dg-shouldfail "ACTION conflicts with READONLY" }
!
! Test that we get a run-time error for opening a READONLY file with
! ACTION='WRITE'.
@ -8,10 +9,11 @@
implicit none
integer :: fd = 8
character(*), parameter :: f = "test.txt"
character(*), parameter :: f = "dec_io_5.txt"
character(10), volatile :: c
c = 'write'
open(unit=fd,file=f,action=c,readonly) ! XFAIL "ACTION conflicts with READONLY"
open(unit=fd,file=f,action=c,readonly)
end
! { dg-output "ACTION conflicts with READONLY" }

22
gcc/testsuite/gfortran.dg/dec_io_6.f90
View File

@ -1,15 +1,29 @@
! { dg-do run "xfail *-*-*" }
! { dg-do run }
! { dg-options "-fdec" }
!
! Test that we get a run-time error for close-on-delete with READONLY.
! Test that we get a run-time warning for close-on-delete with READONLY,
! and that the file is protected from deletion.
!
implicit none
integer :: fd = 8
character(*), parameter :: f = "test.txt"
character(*), parameter :: f = "dec_io_6.txt"
logical :: exists
open(unit=fd,file=f,action='write')
close(unit=fd)
open(unit=fd,file=f,action='read',readonly)
close(unit=fd,status='delete') ! XFAIL "protected by READONLY"
close(unit=fd,status='delete') ! { dg-output "file protected by READONLY" }
inquire(file=f, EXIST=exists)
if (.not. exists) then
print *, 'file was not protected by READONLY!'
call abort()
endif
open(unit=fd,file=f,action='write')
close(unit=fd,status='delete') ! cleanup
end