re PR fortran/60751 (Extra comma in WRITE statement not diagnosed)

2016-06-11  Dominique d'Humieres  <dominiq@lps.ens.fr>

	PR fortran/60751
	* io.c (gfc_resolve_dt): Replace GFC_STD_GNU with GFC_STD_LEGACY.

	* gfortran.dg/comma_IO_extension_1.f90: New test.
	* gfortran.dg/comma_IO_extension_2.f90: Likewise.
	* gfortran.dg/array_constructor_49.f90: Remove extra comma in WRITE
	statement.
	* gfortran.dg/graphite/pr38083.f90: Likewise.
	* gfortran.dg/integer_exponentiation_6.F90: Likewise and add
	missing format.

--This line

M    fortran/ChangeLog
M    fortran/io.c
M    testsuite/ChangeLog
M    testsuite/gfortran.dg/array_constructor_49.f90
M    testsuite/gfortran.dg/graphite/pr38083.f90
M    testsuite/gfortran.dg/integer_exponentiation_6.F90

From-SVN: r237329

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 67bc9e8862151832da950cc1c0b66e56fd437729..b557b34e8625661c923f4d7f4fed225bbbf411bc 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2016-06-11  Dominique d'Humieres  <dominiq@lps.ens.fr>
+
+       PR fortran/60751
+       * io.c (gfc_resolve_dt): Replace GFC_STD_GNU with GFC_STD_LEGACY.
+
 2016-06-10  Thomas Schwinge  <thomas@codesourcery.com>
 
        PR c/71381

diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index d538d84503349675abc357a7a7a4a47a8139f7b7..7c648e93cad6f9e1eaa982c5a01960c4a7cd3014 100644 (file)
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -3007,7 +3007,7 @@ gfc_resolve_dt (gfc_dt *dt, locus *loc)
     }
 
   if (dt->extra_comma
-      && !gfc_notify_std (GFC_STD_GNU, "Comma before i/o item list at %L", 
+      && !gfc_notify_std (GFC_STD_LEGACY, "Comma before i/o item list at %L", 
                          &dt->extra_comma->where))
     return false;
 

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 62d3450c76716032511f106374842d0d20a20b77..0f17c46b3041a5961356d3795c57b8494b61786d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,14 @@
+2016-06-11  Dominique d'Humieres  <dominiq@lps.ens.fr>
+
+       PR target/60751
+       * gfortran.dg/comma_IO_extension_1.f90: New test.
+       * gfortran.dg/comma_IO_extension_2.f90: Likewise.
+       * gfortran.dg/array_constructor_49.f90: Remove extra comma in WRITE
+       statement.
+       * gfortran.dg/graphite/pr38083.f90: Likewise.
+       * gfortran.dg/integer_exponentiation_6.F90: Likewise and add
+       missing format.
+
 2016-06-11  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gnat.dg/case_character.adb: New test.

diff --git a/gcc/testsuite/gfortran.dg/array_constructor_49.f90 b/gcc/testsuite/gfortran.dg/array_constructor_49.f90
index ca963d3ac733749347053818ad19ffb61159d7bb..0f5036a03da16702f2a7d22e1af4716ad1f0b8d9 100644 (file)
--- a/gcc/testsuite/gfortran.dg/array_constructor_49.f90
+++ b/gcc/testsuite/gfortran.dg/array_constructor_49.f90
@@ -6,7 +6,7 @@
 program t
   integer :: ndim=2, ndfp=4, i
   character (len=8) :: line
-  write (unit=line,fmt='(4I2)'), (/ ( i, i = 1, ndfp ) /) + ndim
+  write (unit=line,fmt='(4I2)') (/ ( i, i = 1, ndfp ) /) + ndim
   if (line /= ' 3 4 5 6') call abort
 end program t
 ! { dg-final { scan-tree-dump-times "__var" 3 "original" } }

diff --git a/gcc/testsuite/gfortran.dg/graphite/pr38083.f90 b/gcc/testsuite/gfortran.dg/graphite/pr38083.f90
index da8c3cc7914de4e6adb061464f8736426f660c0d..34d6ca83ad98def902444623caea414964c950b0 100644 (file)
--- a/gcc/testsuite/gfortran.dg/graphite/pr38083.f90
+++ b/gcc/testsuite/gfortran.dg/graphite/pr38083.f90
@@ -8,7 +8,7 @@ SUBROUTINE IVSORT (IL,IH,NSEGS,IOUNIT)
 10 IF (IL .GE. IH) GO TO 80
 20 NSEGS = (IH + IL) / 2
   IF (NSEGS .GT. MAXSGS) THEN
-     WRITE (IOUNIT),MAXSGS
+     WRITE (IOUNIT) MAXSGS
   ENDIF
 80 NSEGS = NSEGS - 1
 90 IF (IH - IL .GE. 11) GO TO 20

diff --git a/gcc/testsuite/gfortran.dg/integer_exponentiation_6.F90 b/gcc/testsuite/gfortran.dg/integer_exponentiation_6.F90
index 55c2543e705034532a727724d62841adb9367b66..4236ee61b6549d31a6f49aaf0b982603019c51e4 100644 (file)
--- a/gcc/testsuite/gfortran.dg/integer_exponentiation_6.F90
+++ b/gcc/testsuite/gfortran.dg/integer_exponentiation_6.F90
@@ -1,4 +1,4 @@
 ! { dg-options "-fno-range-check" }
 program test
-  write (*), (2_8 ** 64009999_8) / 2
+  write (*,*) (2_8 ** 64009999_8) / 2
 end program test