re PR libfortran/61049 (NIST test FM906 fails)

2014-05-06  Jerry DeLisle  <jvdelisle@gcc.gnu>

	PR libfortran/61049
	* gfortran.dg/list_read_13.f: New test.

From-SVN: r210135

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cdd4924a60238c7e9b48eb3d8980cdd21277d8f4..ead4a32f1b657d954fbe8b79d6f3a3c85fd8b735 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2014-05-06  Jerry DeLisle  <jvdelisle@gcc.gnu>
+
+       PR libfortran/61049
+       * gfortran.dg/list_read_13.f: New test.
+
 2014-05-06  Kenneth Zadeck  <zadeck@naturalbridge.com>
            Mike Stump  <mikestump@comcast.net>
            Richard Sandiford  <rdsandiford@googlemail.com>

diff --git a/gcc/testsuite/gfortran.dg/list_read_13.f b/gcc/testsuite/gfortran.dg/list_read_13.f
new file mode 100644 (file)
index 0000000..0f8efd8
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/list_read_13.f
@@ -0,0 +1,13 @@
+c { dg-do run }
+c PR61049, reduced test case by  Dominique d'Humieres
+      character(len=30) :: buff = ", (2.0, 3.0),,6.0D0, 2*,"
+      DOUBLE PRECISION AVD, BVD, CVD, DVCORR 
+      COMPLEX AVC, BVC, CVC, ZVCORR
+      
+      read(buff, *, err=10)  AVD, AVC, BVC, BVD, CVC, CVD
+      goto 20
+ 10   call abort
+ 20   continue       
+      end
+    
+