I am going to take this on. write( 10, ’( "iarray =", *( i0, :, ","))’) iarray
Patch submitted to list. http://gcc.gnu.org/ml/fortran/2009-08/msg00195.html
Subject: Bug 41075 Author: jvdelisle Date: Mon Aug 17 14:25:38 2009 New Revision: 150843 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=150843 Log: 2009-08-17 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR fortran/41075 * scanner.c (gfc_next_char_literal): Add comment to improve readability. * io.c (enum format_token): Add FMT_STAR. (format_lex): Add case for '*'. (check_format): Check for left paren after '*'. Change format checks to use %L to improve format string error locus. Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/io.c trunk/gcc/fortran/scanner.c
Subject: Bug 41075 Author: jvdelisle Date: Mon Aug 17 14:27:29 2009 New Revision: 150844 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=150844 Log: 2009-08-17 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR fortran/41075 * io/io.h (enum format_token): Add FMT_STAR. * io/format.c (format_lex): Add case for FMT_STAR. (parse_format_list): Parse FMT_STAR and check for left paren after. (next_format0): Modify helper function to check for unimited format and return the repeated format node. Update comments to clarify. Modified: trunk/libgfortran/ChangeLog trunk/libgfortran/io/format.c trunk/libgfortran/io/io.h
Subject: Bug 41075 Author: jvdelisle Date: Mon Aug 17 14:40:40 2009 New Revision: 150845 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=150845 Log: 2009-08-17 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR fortran/41075 * gfortran.dg/unlimited_fmt_1.f90: New test. Added: trunk/gcc/testsuite/gfortran.dg/unlimited_fmt_1.f08 Modified: trunk/gcc/testsuite/ChangeLog
Completed on trunk 4.5.0