diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 90818dd9e70..2d4e2547079 100644
--- 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
index 00000000000..d66fb8e601b
--- /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
index 00000000000..2ad331543e8
--- /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
index 00000000000..df52d80e041
--- /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
+