re PR fortran/27634 (formatted reading/writing: real format without dot)

2006-05-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/27634
	* gfortran.dg/fmt_missing_period_1.f: New test.
	* gfortran.dg/fmt_missing_period_2.f: New test.
	* gfortran.dg/fmt_missing_period_3.f: New test.

From-SVN: r114214

gcc/testsuite/ChangeLog

+2006-05-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/27634
+	* gfortran.dg/fmt_missing_period_1.f: New test.
+	* gfortran.dg/fmt_missing_period_2.f: New test.
+	* gfortran.dg/fmt_missing_period_3.f: New test.
+
 2006-05-29  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	PR fortran/19777

gcc/testsuite/gfortran.dg/fmt_missing_period_1.f

+! { dg-compile }
+! PR27634 Missing period in format specifier. Test case derived from case given
+! in PR.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+      real      aval
+      character(6)  :: str
+      character(12) :: input = "1234abcdef"
+      read(input,'(f4,a6)') aval, str  !{ dg-error "Period required" }
+      read(input,'(d10,a6)') aval, str !{ dg-error "Period required" }
+      end
+

gcc/testsuite/gfortran.dg/fmt_missing_period_2.f

+! { dg-run }
+! { dg-options "-w -std=legacy" }
+! PR27634 Missing period in format specifier. Test case derived from case given
+! in PR.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+      real          :: aval = 3.14
+      character(6)  :: str = "xyz"
+      character(12) :: input = "1234abcdef"
+      read(input,'(f4,a6)') aval, str
+      if (aval.ne.1234.0) call abort()
+      if (str.ne."abcdef") call abort()
+      aval = 0.0
+      str = "xyz"
+      read(input,'(d4,a6)') aval, str
+      if (aval.ne.1234.0) call abort()
+      if (str.ne."abcdef") call abort()
+      end

gcc/testsuite/gfortran.dg/fmt_missing_period_3.f

+! { dg-run }
+! { dg-options "-std=legacy" }
+! PR27634 Missing period in format specifier. Test case derived from case given
+! in PR.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+      real          :: aval = 3.14
+      character(6)  :: str = "xyz"
+      character(12) :: input = "1234abcdef"
+      character(8)  :: fmtstr = "(f4,a6)"
+      aval = 0.0
+      str = "xyz"
+      read(input,fmtstr) aval, str
+      if (aval.ne.1234.0) call abort()
+      if (str.ne."abcdef") call abort()
+      end
+