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" }
--- /dev/null
+! { 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
+