From 60410f3ad211bbbf59b5a1b08f92e30b941b1814 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Tue, 4 Jul 2006 01:47:26 +0000 Subject: [PATCH] re PR libfortran/27704 (Incorrect runtime error on multiple OPEN) 2006-07-03 Jerry DeLisle PR libgfortran/27704 * gfortran.dg/open_status_3.f90: New test. * gfortran.dg/fmt_l.f90: Update for new feature. From-SVN: r115169 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/fmt_l.f90 | 16 ++++++++++++++++ gcc/testsuite/gfortran.dg/open_status_3.f90 | 11 +++++++++++ 3 files changed, 33 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/open_status_3.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 80a328c21cd..c92ba4de718 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2006-07-03 Jerry DeLisle + + 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 * gfortran.dg/oldstyle_2.f90: New. diff --git a/gcc/testsuite/gfortran.dg/fmt_l.f90 b/gcc/testsuite/gfortran.dg/fmt_l.f90 index e03f63d8b3b..2a8b6e3bcb3 100644 --- a/gcc/testsuite/gfortran.dg/fmt_l.f90 +++ b/gcc/testsuite/gfortran.dg/fmt_l.f90 @@ -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" } diff --git a/gcc/testsuite/gfortran.dg/open_status_3.f90 b/gcc/testsuite/gfortran.dg/open_status_3.f90 new file mode 100644 index 00000000000..e64561952ad --- /dev/null +++ b/gcc/testsuite/gfortran.dg/open_status_3.f90 @@ -0,0 +1,11 @@ +! { dg-do run } +! PR27704 Incorrect runtime error on multiple OPEN. +! Test case contribyted by Jerry DeLisle + 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 + -- 2.30.2