From a0d66002539dcc75618868d902a44e11059b286a Mon Sep 17 00:00:00 2001 From: Dominique d'Humieres Date: Sat, 11 Jun 2016 21:21:22 +0200 Subject: [PATCH] re PR fortran/60751 (Extra comma in WRITE statement not diagnosed) 2016-06-11 Dominique d'Humieres PR target/60751 * gfortran.dg/comma_IO_extension_1.f90: New test. * gfortran.dg/comma_IO_extension_2.f90: Likewise. From-SVN: r237330 --- gcc/testsuite/gfortran.dg/comma_IO_extension_1.f90 | 8 ++++++++ gcc/testsuite/gfortran.dg/comma_IO_extension_2.f90 | 9 +++++++++ 2 files changed, 17 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/comma_IO_extension_1.f90 create mode 100644 gcc/testsuite/gfortran.dg/comma_IO_extension_2.f90 diff --git a/gcc/testsuite/gfortran.dg/comma_IO_extension_1.f90 b/gcc/testsuite/gfortran.dg/comma_IO_extension_1.f90 new file mode 100644 index 00000000000..abbb69d66f6 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/comma_IO_extension_1.f90 @@ -0,0 +1,8 @@ +! { dg-do compile } +! PR 60751 +! Contributed by Walter Spector +program extracomma + implicit none + + write (*,*), 1, 2, 3 ! { dg-warning "Legacy Extension: Comma before i/o item list" } +end program diff --git a/gcc/testsuite/gfortran.dg/comma_IO_extension_2.f90 b/gcc/testsuite/gfortran.dg/comma_IO_extension_2.f90 new file mode 100644 index 00000000000..5e80a174201 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/comma_IO_extension_2.f90 @@ -0,0 +1,9 @@ +! { dg-do compile } +! { dg-options "-std=legacy" } +! PR 60751 +! Contributed by Walter Spector +program extracomma + implicit none + + write (*,*), 1, 2, 3 +end program -- 2.30.2