From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Mon, 17 Aug 2009 14:40:40 +0000 (+0000)
Subject: re PR fortran/41075 ([F2008] Implement unlimited format item)
X-Git-Tag: releases/gcc-4.5.0~3969
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=2d8980b01e74e526485afb826c925d1139517f50;p=thirdparty%2Fgcc.git

re PR fortran/41075 ([F2008] Implement unlimited format item)

2009-08-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/41075
	* gfortran.dg/unlimited_fmt_1.f90: New test.

From-SVN: r150845
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 29296066404e..497886e226c9 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-08-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/41075
+	* gfortran.dg/unlimited_fmt_1.f90: New test.
+
 2009-08-17  Dodji Seketeli  <dodji@redhat.com>
 
 	* gcc.dg.debug/dwarf2/inline2.c: Add -dA to compile options.
diff --git a/gcc/testsuite/gfortran.dg/unlimited_fmt_1.f08 b/gcc/testsuite/gfortran.dg/unlimited_fmt_1.f08
new file mode 100644
index 000000000000..5089d32ff4d7
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/unlimited_fmt_1.f08
@@ -0,0 +1,17 @@
+! { dg-do run }
+! PR41075 Implement unlimited format item '*'.
+! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+program unlimited
+   implicit none
+   integer i
+   character(len=60) :: string
+   integer, parameter :: n = 10
+   integer, dimension(n) :: iarray
+   iarray = (/ (i,i=1,n) /)
+   do i=1,10
+     write( string, '( "iarray =", *(g0, :, ","))') &
+     & "abcdefg",iarray, i,"jklmnop"
+   end do
+   if (string.ne."iarray =abcdefg,1,2,3,4,5,6,7,8,9,10,10,jklmnop") &
+   & call abort
+end program unlimited