diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/fmt_l.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_l.f90 | 16 |
1 files changed, 16 insertions, 0 deletions
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" } |