re PR fortran/36420 (Fortran 2008: g0 edit descriptor)

2008-06-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/36420
	PR fortran/36421
	PR fortran/36422
	* gfortran.dg/fmt_g0_1.f08: New test.
	* gfortran.dg/fmt_g0_2.f08: New test.
	* gfortran.dg/fmt_g0_3.f08: New test.

From-SVN: r136547

gcc/testsuite/ChangeLog

+2008-06-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/36420
+	PR fortran/36421
+	PR fortran/36422
+	* gfortran.dg/fmt_g0_1.f08: New test.
+	* gfortran.dg/fmt_g0_2.f08: New test.
+	* gfortran.dg/fmt_g0_3.f08: New test.
+
 2008-06-07  Xinliang David Li  <davidxl@google.com>
 
 	PR/36440

gcc/testsuite/gfortran.dg/fmt_g0_1.f08

+! { dg-do run }
+! PR36420 Fortran 2008: g0 edit descriptor 
+! Test case provided by Jerry DeLisle <jvdelisle@gcc.gnu.org>
+    character(25) :: string = "(g0,g0,g0)" 
+    character(33) :: buffer
+    write(buffer, '(g0,g0,g0)') ':',12340,':'
+    if (buffer.ne.":12340:") call abort
+    write(buffer, string) ':',0,':'
+    if (buffer.ne.":0:") call abort
+    write(buffer, string) ':',1.0/3.0,':'
+    if (buffer.ne.": 0.33333334    :") call abort
+    write(buffer, '(1x,a,g0,a)') ':',1.0/3.0,':'
+    if (buffer.ne." : 0.33333334    :") call abort
+    write(buffer, string) ':',"hello",':'
+    if (buffer.ne.":hello:") call abort
+    write(buffer, "(g0,g0,g0,g0)") ':',.true.,.false.,':'
+    if (buffer.ne.":TF:") call abort
+    write(buffer, "(g0,g0,',',g0,g0)") '(',( 1.2345, 2.4567 ),')'
+    if (buffer.ne."(  1.2345001    ,  2.4567001    )") call abort
+end

gcc/testsuite/gfortran.dg/fmt_g0_2.f08

+! { dg-do run }
+! { dg-options "-std=f95 -pedantic" }
+! { dg-shouldfail "Zero width in format descriptor" }
+! PR36420 Fortran 2008: g0 edit descriptor 
+! Test case provided by Jerry DeLisle <jvdelisle@gcc.gnu.org>
+    character(25) :: string = "(g0,g0,g0)" 
+    character(33) :: buffer
+    write(buffer, string) ':',0,':'
+    if (buffer.ne.":0:") call abort
+end
+! { dg-output "Fortran runtime error: Zero width in format descriptor(\n|\r\n|\r)" }

gcc/testsuite/gfortran.dg/fmt_g0_3.f08

+! { dg-do compile }
+! { dg-options "-std=f95" }! PR36420 Fortran 2008: g0 edit descriptor 
+! Test case provided by Jerry DeLisle <jvdelisle@gcc.gnu.org>
+    character(25) :: string = "(g0,g0,g0)" 
+    character(33) :: buffer
+    write(buffer, '(g0,g0,g0)') ':',12340,':' ! { dg-error "Fortran F2008:" }
+end