From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 13 Feb 2015 02:57:03 +0000 (+0000)
Subject: re PR fortran/57822 (I/O: "(g0)" wrongly prints "E+0000")
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=fa47895fe650bc724adbdb3d5fd24348fd315277;p=gcc.git

re PR fortran/57822 (I/O: "(g0)" wrongly prints "E+0000")

2015-02-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/57822
	* gfortran/fmt_g0_7.f08: Adjust for archtectures with less than
	four different KINDs.

From-SVN: r220673
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a408c946161..6f714ea030c 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2015-02-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/57822
+	* gfortran/fmt_g0_7.f08: Adjust for archtectures with less than
+	four different KINDs.
+
 2015-02-12  Jakub Jelinek  <jakub@redhat.com>
 
 	PR c++/64884
diff --git a/gcc/testsuite/gfortran.dg/fmt_g0_7.f08 b/gcc/testsuite/gfortran.dg/fmt_g0_7.f08
index 3709b758c6e..d0b572e23e1 100644
--- a/gcc/testsuite/gfortran.dg/fmt_g0_7.f08
+++ b/gcc/testsuite/gfortran.dg/fmt_g0_7.f08
@@ -4,7 +4,7 @@
 program testit
 use ISO_FORTRAN_ENV
   implicit none
-  integer, parameter :: j(size(real_kinds))=REAL_KINDS
+  integer, parameter :: j(size(real_kinds)+4)=[REAL_KINDS, [4, 4, 4, 4]]
   character(50) :: astring
   integer :: i, l, n