diff options
Diffstat (limited to 'gcc')
16 files changed, 30 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f2c294754cf..528ba66c649 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,18 @@ +2006-03-18 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> + + * gfortran.dg/direct_io_1.f90, gfortran.dg/iostat_2.f90, + gfortran.dg/open_new.f90, gfortran.dg/open_readonly_1.f90, + gfortran.dg/pr16935.f90, gfortran.dg/pr20954.f, + gfortran.dg/read_many_1.f, gfortran.dg/unf_io_convert_2.f90, + gfortran.fortran-torture/execute/direct_io.f90, + gfortran.fortran-torture/execute/inquire_2.f90, + gfortran.fortran-torture/execute/inquire_4.f90, + gfortran.fortran-torture/execute/list_read_1.f90, + gfortran.fortran-torture/execute/open_replace.f90, + gfortran.fortran-torture/execute/slash_edit.f90, + gfortran.fortran-torture/execute/unopened_unit_1.f90: Delete + temporary files from testcases. + 2006-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/26509 diff --git a/gcc/testsuite/gfortran.dg/direct_io_1.f90 b/gcc/testsuite/gfortran.dg/direct_io_1.f90 index 92eff2942b4..96ae4903506 100644 --- a/gcc/testsuite/gfortran.dg/direct_io_1.f90 +++ b/gcc/testsuite/gfortran.dg/direct_io_1.f90 @@ -28,5 +28,5 @@ program direct_io_1 n = 1 write(12, rec=n) mt, nt write(12, rec=n+1) (p(m), m=1, nt) - close(12) + close(12, status='delete') end program diff --git a/gcc/testsuite/gfortran.dg/iostat_2.f90 b/gcc/testsuite/gfortran.dg/iostat_2.f90 index 2b4cb5d7e83..124567c1e32 100644 --- a/gcc/testsuite/gfortran.dg/iostat_2.f90 +++ b/gcc/testsuite/gfortran.dg/iostat_2.f90 @@ -4,4 +4,5 @@ close(10, status="whatever", iostat=i) if (i == 0) call abort() write(17,*) 'foo' + close(17, status="delete") end diff --git a/gcc/testsuite/gfortran.dg/open_new.f90 b/gcc/testsuite/gfortran.dg/open_new.f90 index 3b8e95ae944..96edd93c347 100644 --- a/gcc/testsuite/gfortran.dg/open_new.f90 +++ b/gcc/testsuite/gfortran.dg/open_new.f90 @@ -7,5 +7,5 @@ program main close(nout) open(nout, file="foo.dat", status="new",err=100) call abort ! This should never happen -100 continue +100 call unlink ("foo.dat") end program main diff --git a/gcc/testsuite/gfortran.dg/open_readonly_1.f90 b/gcc/testsuite/gfortran.dg/open_readonly_1.f90 index 622a07d2aee..3adbbd32498 100644 --- a/gcc/testsuite/gfortran.dg/open_readonly_1.f90 +++ b/gcc/testsuite/gfortran.dg/open_readonly_1.f90 @@ -9,6 +9,6 @@ program prog open (unit=10, file='PR19451.dat', action="read") write (10,*,err=20) "Hello World" call abort() - 20 continue + 20 close (10, status='delete') end program diff --git a/gcc/testsuite/gfortran.dg/pr16935.f90 b/gcc/testsuite/gfortran.dg/pr16935.f90 index 63f540057fd..b7dd236fddf 100644 --- a/gcc/testsuite/gfortran.dg/pr16935.f90 +++ b/gcc/testsuite/gfortran.dg/pr16935.f90 @@ -4,4 +4,5 @@ program bug2 implicit none open( 1 , file = "str_500.txt", position = "REWIND" ) + close( 1 , status = "DELETE" ) end diff --git a/gcc/testsuite/gfortran.dg/pr20954.f b/gcc/testsuite/gfortran.dg/pr20954.f index b19b782f667..be820c1e937 100644 --- a/gcc/testsuite/gfortran.dg/pr20954.f +++ b/gcc/testsuite/gfortran.dg/pr20954.f @@ -8,4 +8,5 @@ filename = 'input' open (2,file=filename) write (line, '(5a16)') (string(i),i=1,5) + close (2, status='delete') end diff --git a/gcc/testsuite/gfortran.dg/read_many_1.f b/gcc/testsuite/gfortran.dg/read_many_1.f index ef81fa81f44..4fac689ac48 100644 --- a/gcc/testsuite/gfortran.dg/read_many_1.f +++ b/gcc/testsuite/gfortran.dg/read_many_1.f @@ -20,4 +20,5 @@ if (b(2).ne.5) call abort() if (a(3000).ne.1234) call abort() if (b(2048).ne.5678) call abort() + close(2, status='delete') end diff --git a/gcc/testsuite/gfortran.dg/unf_io_convert_2.f90 b/gcc/testsuite/gfortran.dg/unf_io_convert_2.f90 index 42bad3ee30f..f29f6ee249e 100644 --- a/gcc/testsuite/gfortran.dg/unf_io_convert_2.f90 +++ b/gcc/testsuite/gfortran.dg/unf_io_convert_2.f90 @@ -35,5 +35,6 @@ program main backspace 10 read (10) j if (j /= Z'5566770011223344') call abort + close (10, status="delete") end program main diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 index b8078f03d5e..deba9a6bfa5 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/direct_io.f90 @@ -13,6 +13,7 @@ CALL ABORT ENDIF ENDDO + CLOSE(10,STATUS='DELETE') STOP 10 CONTINUE ! PRINT*,' ERR= RETURN FROM READ OR WRITE' diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 index bc7ea74c39a..48105170248 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90 @@ -3,4 +3,5 @@ OPEN(FILE='CSEQ', UNIT=23) INQUIRE(FILE='CSEQ',NUMBER=UNIT) IF (UNIT.NE.23) CALL ABORT + CLOSE(UNIT, STATUS='DELETE') END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 index 5b94ad232bc..2fa69cc3f9f 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/inquire_4.f90 @@ -16,5 +16,6 @@ ! PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 4' CALL ABORT ENDIF + CLOSE(UNIT=10,STATUS='DELETE') END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 index 040ae72d8e0..0a20b4bde83 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/list_read_1.f90 @@ -50,4 +50,5 @@ if (x(i,k).ne.y(i,k)) call abort end do end do + close(nin, status='delete') end program d diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 index 1d8ac4ba787..11d0d09461a 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90 @@ -2,4 +2,5 @@ ! open with 'REPLACE' creates the file if it does not exist. PROGRAM iobug OPEN(UNIT=10,FILE='gfcoutput.txt',status='REPLACE') + CLOSE(10,status='DELETE') END PROGRAM iobug diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 index c73d5432a31..29f44a7dd4e 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/slash_edit.f90 @@ -8,7 +8,7 @@ OPEN(7) 200 FORMAT(I4,///I4) READ(7,200)I,J - CLOSE(7) + CLOSE(7, STATUS='DELETE') IF (I.NE.1) CALL ABORT IF (J.NE.4) CALL ABORT END diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 index d87406ab4db..66895b02af1 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/unopened_unit_1.f90 @@ -9,5 +9,6 @@ program unopened_unit_1 Read(99,*)J If (J.ne.I) Call abort End Do + Close(99, Status='Delete') End program |
