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

advance.f90, [...]: Delete temp file. 

* gfortran.dg/advance.f90, gfortran.dg/backspace_2.f,
	gfortran.dg/comma.f, gfortran.dg/direct_io_2.f90,
	gfortran.dg/tl_editing.f90, gfortran.dg/unf_io_convert_1.f90,
	gfortran.dg/write_back.f,
	gfortran.fortran-torture/execute/inquire_1.f90,
	gfortran.fortran-torture/execute/inquire_3.f90: Delete temp file.

From-SVN: r112258
This commit is contained in:
Kaveh R. Ghazi 2006-03-21 21:17:54 +00:00 committed by Kaveh Ghazi
parent f7da48ef7e
commit d9d1a9582e
10 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,12 @@
2006-03-21 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* gfortran.dg/advance.f90, gfortran.dg/backspace_2.f,
gfortran.dg/comma.f, gfortran.dg/direct_io_2.f90,
gfortran.dg/tl_editing.f90, gfortran.dg/unf_io_convert_1.f90,
gfortran.dg/write_back.f,
gfortran.fortran-torture/execute/inquire_1.f90,
gfortran.fortran-torture/execute/inquire_3.f90: Delete temp file.
2006-03-21 Jeff Law <law@redhat.com>
* gcc.dg/tree-ssa/vrp28.c: New test.

1
gcc/testsuite/gfortran.dg/advance.f90
View File

@ -9,4 +9,5 @@ program pr25463
rewind (10)
read (10, '(a)') str
if (str.ne.'abc') call abort()
close (10, status='delete')
end

1
gcc/testsuite/gfortran.dg/backspace_2.f
View File

@ -17,5 +17,6 @@
1011 continue
backspace 11
backspace 11
close(11, status='delete')
end

1
gcc/testsuite/gfortran.dg/comma.f
View File

@ -14,5 +14,6 @@
rewind(11)
read(11,*)stuff
if (stuff.ne.1.0) call abort()
close(11, status='delete')
end

1
gcc/testsuite/gfortran.dg/direct_io_2.f90
View File

@ -40,5 +40,6 @@
READ(7, REC = IREC) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF,IVON21, IVON22, IVON31, IVON32, IVON33, IVON34, IVON55, IVON56
IF (IRECN .NE. IRECCK) CALL ABORT
4135 CONTINUE
CLOSE(7, STATUS='DELETE')
STOP
END

1
gcc/testsuite/gfortran.dg/tl_editing.f90
View File

@ -27,6 +27,7 @@ program tl_editting
rewind(10)
read(10, '(a)') s
if (s.ne.cline) call abort
close(10, status='delete')
end program tl_editting

12
gcc/testsuite/gfortran.dg/unf_io_convert_1.f90
View File

@ -85,11 +85,11 @@ program main
else
call abort
endif
! use hexdump to look at the file "fort.9"
if (debug) then
close(9)
else
close(9,status='DELETE')
endif
end if
! use hexdump to look at the file "fort.9"
if (debug) then
close(9)
else
close(9,status='DELETE')
endif
end program main

1
gcc/testsuite/gfortran.dg/write_back.f
View File

@ -20,5 +20,6 @@
read(11, end=250)idata
call abort()
250 continue
close(11, status="delete")
end

1
gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90
View File

@ -5,4 +5,5 @@
INQUIRE(UNIT=9,ACCESS=ACCESS,BLANK=BLANK)
IF(BLANK.NE.'NULL') CALL ABORT
IF(ACCESS.NE.'SEQUENTIAL') CALL ABORT
CLOSE(UNIT=9,STATUS='DELETE')
END

1
gcc/testsuite/gfortran.fortran-torture/execute/inquire_3.f90
View File

@ -9,5 +9,6 @@
INQUIRE(UNIT=9,NEXTREC=NREC)
IF (NREC.NE.2) CALL ABORT
! PRINT*,NREC
CLOSE(UNIT=9,STATUS='DELETE')
END