From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Tue, 10 Feb 2015 03:34:19 +0000 (+0000)
Subject: re PR fortran/57822 (I/O: "(g0)" wrongly prints "E+0000")
X-Git-Tag: releases/gcc-5.1.0~1046
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2d51422f3908ac452fee07e099d046991ad8f8f6;p=thirdparty%2Fgcc.git

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

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

	PR libgfortran/57822
	* gfortran/fmt_g0_7.f08: New test.

From-SVN: r220565
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ca2cf304a111..67e1ac47de8a 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/57822
+	* gfortran/fmt_g0_7.f08: New test.
+
 2015-02-10  Bin Cheng  <bin.cheng@arm.com>
 
 	PR tree-optimization/43378
diff --git a/gcc/testsuite/gfortran.dg/fmt_g0_7.f08 b/gcc/testsuite/gfortran.dg/fmt_g0_7.f08
new file mode 100644
index 000000000000..a70ead10b586
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_g0_7.f08
@@ -0,0 +1,28 @@
+! { dg-do run }
+! PR58722
+program testit
+  character(50) :: astring
+  
+  write(astring, '(g0)') 0.1_4
+  if (test(astring)) call abort
+  write(astring, '(g0)') 0.1_8
+  if (test(astring)) call abort
+  write(astring, '(g0)') 0.1_10
+  if (test(astring)) call abort
+  write(astring, '(g0)') 0.1_16
+  if (test(astring)) call abort
+
+contains
+
+function test (string1) result(res)
+  character(len=*) :: string1
+  logical :: res
+
+  res = .true.
+  do i = 1, len(string1)
+    if (string1(i:i) == 'E') return
+  end do
+  res = .false.
+end function
+
+end program