From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Wed, 19 Oct 2016 19:23:06 +0000 (+0000)
Subject: dtio_17.f90: Fix test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bdcf8e7c55b6d54062f7bcd3a099c732b84a1e19;p=gcc.git

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 e6d84c37767..1e833253761 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 a6b1fb39888..85794d7b1eb 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