mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-04-02 05:50:26 +08:00
re PR libfortran/27704 (Incorrect runtime error on multiple OPEN)
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:
parent
2e4444278c
commit
60410f3ad2
@ -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.
|
||||
|
@ -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
11
gcc/testsuite/gfortran.dg/open_status_3.f90
Normal 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
|
||||
|
Loading…
x
Reference in New Issue
Block a user