mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-21 15:50:50 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/27704 (Incorrect runtime error on multiple OPEN)

Browse Source 
2006-07-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/27704
	* gfortran.dg/open_status_3.f90: New test.
	* gfortran.dg/fmt_l.f90: Update for new feature.

From-SVN: r115169
This commit is contained in:
Jerry DeLisle 2006-07-04 01:47:26 +00:00
parent 2e4444278c
commit 60410f3ad2
3 changed files with 33 additions and 0 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 @@
2006-07-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/27704
* gfortran.dg/open_status_3.f90: New test.
* gfortran.dg/fmt_l.f90: Update for new feature.
2006-07-03 Asher Langton <langton2@llnl.gov>
* gfortran.dg/oldstyle_2.f90: New.

16
gcc/testsuite/gfortran.dg/fmt_l.f90
View File

@ -51,19 +51,35 @@ program test_l
if (l8 .neqv. .false.) call abort
end program test_l
! { dg-output "At line 14 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 15 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 19 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 20 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 24 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 25 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 29 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 30 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 34 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 35 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 39 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 40 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 44 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 45 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 49 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }
! { dg-output "At line 50 of file.*" }
! { dg-output "Fortran runtime warning: Positive width required in format\n" }

11
gcc/testsuite/gfortran.dg/open_status_3.f90 Normal file
View File

@ -0,0 +1,11 @@
! { dg-do run }
! PR27704 Incorrect runtime error on multiple OPEN.
! Test case contribyted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
OPEN(8, FORM = 'unformatted', STATUS = 'scratch')
OPEN(8, FORM = 'unformatted', status = 'scratch')
close(8)
open(8)
open(8, status = 'old')
close(8, status="delete")
end