dtio_17.f90: Fix test.

2016-10-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* gfortran.dg/dtio_17.f90: Fix test.

From-SVN: r241352

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e6d84c377679ae8a5c52b2dfb1548a67055f173f..1e83325376184c4d0ed8a77f2b39267dc6af588b 100644 (file)
--- 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 a6b1fb3988806691536a4467dc46d1b6dd03e740..85794d7b1eb6894fc126cca5485ac474e4af16f3 100644 (file)
--- 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