re PR libfortran/15332 (colon edit descriptor not handled correctly)

      PR libfortran/15332

      * io/format.c (parse_format_list): format node for colon edit
      descriptor needs a repeat counter set to 1.

      * gfortran.dg/pr15332.f: New test.

From-SVN: r97036

gcc/testsuite/ChangeLog

+2005-03-25  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR libfortran/15332
+	* gfortran.dg/pr15332.f: New test.
+
 2005-03-24  Dale Johannesen  <dalej@apple.com>
 
 	* gcc.dg/20020919-1.c:  Fix for x86 Darwin.

gcc/testsuite/gfortran.dg/pr15332.f

+! PR libfortran/15332
+! {do-do run}
+      character*12 c
+
+      write (c,100) 0, 1
+      if (c .ne. 'i = 0, j = 1') call abort
+      
+      write (c,100) 0
+      if (c .ne. 'i = 0       ') call abort
+
+ 100  format ('i = ',i1,:,', j = ',i1)
+      end

libgfortran/ChangeLog

+2005-03-25  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR libfortran/15332
+	* io/format.c (parse_format_list): format node for colon edit
+	descriptor needs a repeat counter set to 1.
+
 2005-02-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	* config.h.in: Regenerate.

libgfortran/io/format.c

@@ -564,6 +564,7 @@ parse_format_list (void)
 
     case FMT_COLON:
       get_fnode (&head, &tail, FMT_COLON);
+      tail->repeat = 1;
       goto optional_comma;
 
     case FMT_SLASH: