1 files changed, 58 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/complex_read.f90 b/gcc/testsuite/gfortran.dg/complex_read.f90
new file mode 100644
index 000000000..102a13522
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/complex_read.f90
@@ -0,0 +1,58 @@
+! { dg-do run { target fd_truncate } }
+! Test of the fix to the bug in NIST fm906.for.
+! Contributed by Paul Thomas  <pault@gcc.gnu.org>
+!
+program complex_read
+  complex            ::  a
+  open (10, status="scratch")
+
+! Test that we have not broken the one line form.
+
+  write (10, *) " ( 0.99  ,  9.9  )"
+  rewind (10)
+  read (10,*) a
+  if (a.ne.(0.99, 9.90)) call abort ()
+
+! Test a new record after the.comma (the original bug).
+
+  rewind (10)
+  write (10, *) " ( 99.0   ,"
+  write (10, *) "   999.0  )"
+  rewind (10)
+  read (10,*) a
+  if (a.ne.(99.0, 999.0)) call abort ()
+
+! Test a new record before the.comma 
+
+  rewind (10)
+  write (10, *) " ( 0.99  "
+  write (10, *) " , 9.9  )"
+  rewind (10)
+  read (10,*) a
+  if (a.ne.(0.99, 9.90)) call abort ()
+
+! Test a new records before and after the.comma 
+
+  rewind (10)
+  write (10, *) " ( 99.0   "
+  write (10, *) ",         "
+  write (10, *) "  999.0  )"
+  rewind (10)
+  read (10,*) a
+  if (a.ne.(99.0, 999.0)) call abort ()
+
+! Test a new records and blank records before and after the.comma 
+
+  rewind (10)
+  write (10, *) " ( 0.99   "
+  write (10, *) "          "
+  write (10, *) ",         "
+  write (10, *) "          "
+  write (10, *) "  9.9    )"
+  rewind (10)
+  read (10,*) a
+  if (a.ne.(0.99, 9.9)) call abort ()
+
+  close (10)
+end program complex_read
+