diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e6d84c377679..1e8332537618 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2016-10-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	* gfortran.dg/dtio_17.f90: Fix test.
+
 2016-10-19  Aldy Hernandez  <aldyh@redhat.com>
 
 	* gcc.dg/Walloca-1.c: Adjust test for !lp64 targets.
diff --git a/gcc/testsuite/gfortran.dg/dtio_17.f90 b/gcc/testsuite/gfortran.dg/dtio_17.f90
index a6b1fb398880..85794d7b1eb6 100644
--- a/gcc/testsuite/gfortran.dg/dtio_17.f90
+++ b/gcc/testsuite/gfortran.dg/dtio_17.f90
@@ -61,6 +61,10 @@ PROGRAM test
   TYPE (person) :: chairman
   integer(4) :: rl, tl, kl, thesize
 
+  rl = 1
+  tl = 22
+  kl = 333
+  thesize = 9999
   chairman%name="Charlie"
   chairman%age=62