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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114214 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 90818dd..2d4e254 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/fmt_missing_period_1.f b/gcc/testsuite/gfortran.dg/fmt_missing_period_1.f
new file mode 100644 (file)
index 0000000..d66fb8e
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_missing_period_1.f
@@ -0,0 +1,10 @@
+! { 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
+

diff --git a/gcc/testsuite/gfortran.dg/fmt_missing_period_2.f b/gcc/testsuite/gfortran.dg/fmt_missing_period_2.f
new file mode 100644 (file)
index 0000000..2ad3315
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_missing_period_2.f
@@ -0,0 +1,16 @@
+! { 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

diff --git a/gcc/testsuite/gfortran.dg/fmt_missing_period_3.f b/gcc/testsuite/gfortran.dg/fmt_missing_period_3.f
new file mode 100644 (file)
index 0000000..df52d80
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_missing_period_3.f
@@ -0,0 +1,15 @@
+! { 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
+