Re: [Patch, libgfortran] PR39667, unnecessary truncations

[Janne Blomqvist <blomqvist dot janne at gmail dot com>]

PING.

On Sun, Apr 19, 2009 at 01:26, Janne Blomqvist
<blomqvist.janne@gmail.com> wrote:
> Hi,
>
> the attached patch enables the REWIND statement to work without
> truncating the file. Testcases in gfortran.dg that no longer require the
> target to support file truncation are fixed. Also attached is a script
> that can be used to find testcases the require truncation support.
>
> Regtested on i686-pc-linux-gnu, Ok for trunk?
>
>
> --
> Janne Blomqvist
>
> testsuite:
>
> 2009-04-19 ?Janne Blomqvist ?<jb@gcc.gnu.org>
>
> ? ? ? ?PR libfortran/39667
> ? ? ? ?* gfortran.dg/advance_1.f90: Don't require target fd_truncate.
> ? ? ? ?* gfortran.dg/advance_4.f90: Likewise
> ? ? ? ?* gfortran.dg/advance_5.f90: Likewise
> ? ? ? ?* gfortran.dg/append_1.f90: Likewise
> ? ? ? ?* gfortran.dg/backslash_1.f90: Likewise
> ? ? ? ?* gfortran.dg/backslash_2.f90: Likewise
> ? ? ? ?* gfortran.dg/backslash_3.f: Likewise
> ? ? ? ?* gfortran.dg/backspace_10.f90: Likewise
> ? ? ? ?* gfortran.dg/backspace_3.f: Likewise
> ? ? ? ?* gfortran.dg/backspace_4.f: Likewise
> ? ? ? ?* gfortran.dg/backspace_5.f: Likewise
> ? ? ? ?* gfortran.dg/backspace_8.f: Likewise
> ? ? ? ?* gfortran.dg/backspace_9.f: Likewise
> ? ? ? ?* gfortran.dg/complex_write.f90: Likewise
> ? ? ? ?* gfortran.dg/convert_implied_open.f90: Likewise
> ? ? ? ?* gfortran.dg/dollar_edit_descriptor_1.f: Likewise
> ? ? ? ?* gfortran.dg/dos_eol.f: Likewise
> ? ? ? ?* gfortran.dg/empty_format_1.f90: Likewise
> ? ? ? ?* gfortran.dg/endfile.f: Likewise
> ? ? ? ?* gfortran.dg/eof_1.f90: Likewise
> ? ? ? ?* gfortran.dg/eor_1.f90: Likewise
> ? ? ? ?* gfortran.dg/eor_handling_1.f90: Likewise
> ? ? ? ?* gfortran.dg/eor_handling_2.f90: Likewise
> ? ? ? ?* gfortran.dg/eor_handling_3.f90: Likewise
> ? ? ? ?* gfortran.dg/eor_handling_4.f90: Likewise
> ? ? ? ?* gfortran.dg/eor_handling_5.f90: Likewise
> ? ? ? ?* gfortran.dg/error_recovery_5.f90: Likewise
> ? ? ? ?* gfortran.dg/f2003_inquire_1.f03: Likewise
> ? ? ? ?* gfortran.dg/f2003_io_4.f03: Likewise
> ? ? ? ?* gfortran.dg/f2003_io_5.f03: Likewise
> ? ? ? ?* gfortran.dg/f2003_io_7.f03: Likewise
> ? ? ? ?* gfortran.dg/fgetc_1.f90: Likewise
> ? ? ? ?* gfortran.dg/fgetc_2.f90: Likewise
> ? ? ? ?* gfortran.dg/flush_1.f90: Likewise
> ? ? ? ?* gfortran.dg/fmt_exhaust.f90: Likewise
> ? ? ? ?* gfortran.dg/fmt_huge.f90: Likewise
> ? ? ? ?* gfortran.dg/fmt_read.f90: Likewise
> ? ? ? ?* gfortran.dg/fmt_t_1.f90: Likewise
> ? ? ? ?* gfortran.dg/fmt_t_2.f90: Likewise
> ? ? ? ?* gfortran.dg/fmt_t_3.f90: Likewise
> ? ? ? ?* gfortran.dg/fmt_t_4.f90: Likewise
> ? ? ? ?* gfortran.dg/fmt_t_5.f90: Likewise
> ? ? ? ?* gfortran.dg/fmt_t_7.f: Likewise
> ? ? ? ?* gfortran.dg/fseek.f90: Likewise
> ? ? ? ?* gfortran.dg/ftell_1.f90: Likewise
> ? ? ? ?* gfortran.dg/ftell_2.f90: Likewise
> ? ? ? ?* gfortran.dg/func_derived_3.f90: Likewise
> ? ? ? ?* gfortran.dg/inquire_9.f90: Likewise
> ? ? ? ?* gfortran.dg/iostat_1.f90: Likewise
> ? ? ? ?* gfortran.dg/iostat_2.f90: Likewise
> ? ? ? ?* gfortran.dg/list_read_1.f90: Likewise
> ? ? ? ?* gfortran.dg/list_read_4.f90: Likewise
> ? ? ? ?* gfortran.dg/list_read_5.f90: Likewise
> ? ? ? ?* gfortran.dg/list_read_7.f90: Likewise
> ? ? ? ?* gfortran.dg/list_read_8.f90: Likewise
> ? ? ? ?* gfortran.dg/list_read_9.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_13.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_14.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_15.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_16.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_17.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_18.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_19.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_20.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_24.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_26.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_27.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_28.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_37.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_38.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_39.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_40.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_43.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_44.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_45.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_46.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_47.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_48.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_49.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_50.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_51.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_52.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_56.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_char_only.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_use.f90: Likewise
> ? ? ? ?* gfortran.dg/namelist_use_only.f90: Likewise
> ? ? ? ?* gfortran.dg/noadv_size.f90: Likewise
> ? ? ? ?* gfortran.dg/open_access_append_1.f90: Likewise
> ? ? ? ?* gfortran.dg/pad_no.f90: Likewise
> ? ? ? ?* gfortran.dg/pr12884.f: Likewise
> ? ? ? ?* gfortran.dg/pr17090.f90: Likewise
> ? ? ? ?* gfortran.dg/pr17285.f90: Likewise
> ? ? ? ?* gfortran.dg/pr17286.f90: Likewise
> ? ? ? ?* gfortran.dg/pr18122.f90: Likewise
> ? ? ? ?* gfortran.dg/pr18210.f90: Likewise
> ? ? ? ?* gfortran.dg/pr18392.f90: Likewise
> ? ? ? ?* gfortran.dg/pr19155.f: Likewise
> ? ? ? ?* gfortran.dg/pr19216.f: Likewise
> ? ? ? ?* gfortran.dg/pr19467.f90: Likewise
> ? ? ? ?* gfortran.dg/pr19657.f: Likewise
> ? ? ? ?* gfortran.dg/pr20257.f90: Likewise
> ? ? ? ?* gfortran.dg/read_bad_advance.f90: Likewise
> ? ? ? ?* gfortran.dg/read_eof_2.f90: Likewise
> ? ? ? ?* gfortran.dg/read_eof_4.f90: Likewise
> ? ? ? ?* gfortran.dg/read_many_1.f: Likewise
> ? ? ? ?* gfortran.dg/read_noadvance.f90: Likewise
> ? ? ? ?* gfortran.dg/read_repeat.f90: Likewise
> ? ? ? ?* gfortran.dg/read_size_noadvance.f90: Likewise
> ? ? ? ?* gfortran.dg/read_x_past.f: Likewise
> ? ? ? ?* gfortran.dg/record_marker_1.f90: Likewise
> ? ? ? ?* gfortran.dg/record_marker_3.f90: Likewise
> ? ? ? ?* gfortran.dg/rewind_1.f90: Likewise
> ? ? ? ?* gfortran.dg/runtime_warning_1.f90: Likewise
> ? ? ? ?* gfortran.dg/shape_3.f90: Likewise
> ? ? ? ?* gfortran.dg/slash_1.f90: Likewise
> ? ? ? ?* gfortran.dg/stat_1.f90: Likewise
> ? ? ? ?* gfortran.dg/stat_2.f90: Likewise
> ? ? ? ?* gfortran.dg/streamio_11.f90: Likewise
> ? ? ? ?* gfortran.dg/streamio_3.f90: Likewise
> ? ? ? ?* gfortran.dg/streamio_4.f90: Likewise
> ? ? ? ?* gfortran.dg/streamio_9.f90: Likewise
> ? ? ? ?* gfortran.dg/tl_editing.f90: Likewise
> ? ? ? ?* gfortran.dg/unf_io_convert_1.f90: Likewise
> ? ? ? ?* gfortran.dg/unf_io_convert_2.f90: Likewise
> ? ? ? ?* gfortran.dg/unf_read_corrupted_2.f90: Likewise
> ? ? ? ?* gfortran.dg/unf_short_record_1.f90: Likewise
> ? ? ? ?* gfortran.dg/utf8_1.f03: Likewise
> ? ? ? ?* gfortran.dg/utf8_2.f03: Likewise
> ? ? ? ?* gfortran.dg/widechar_IO_1.f90: Likewise
> ? ? ? ?* gfortran.dg/write_check3.f90: Likewise
> ? ? ? ?* gfortran.dg/write_rewind_2.f: Likewise
> ? ? ? ?* gfortran.dg/x_slash_2.f: Likewise
>
> libgfortran:
>
> 2009-04-19 ?Janne Blomqvist ?<jb@gcc.gnu.org>
>
> ? ? ? ?PR libfortran/39667
> ? ? ? ?* io/file_pos.c (st_rewind): Don't truncate or flush.
> ? ? ? ?* io/intrinsics.c (fgetc): Flush if switching mode.
> ? ? ? ?(fputc): Likewise.
>
>



-- 
Janne Blomqvist