[Bug libfortran/19303] Unformatted record header is 4-bytes on 32-bit targets

["tkoenig at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #22 from tkoenig at gcc dot gnu dot org  2006-03-22 19:09 -------
Subject: Bug 19303

Author: tkoenig
Date: Wed Mar 22 19:09:11 2006
New Revision: 112290

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=112290
Log:
2006-03-22  Thomas Koenig  <Thomas.Koenig@onlien.de>

        PR fortran/19303
        * gfortran.h (gfc_option_t):  Add record_marker.
        * lang.opt:  Add -frecord-marker=4 and -frecord-marker=8.
        * trans-decl.c:  Add gfor_fndecl_set_record_marker.
        (gfc_build_builtin_function_decls): Set
        gfor_fndecl_set_record_marker.
        (gfc_generate_function_code):  If we are in the main program
        and -frecord-marker was provided, call set_record_marker.
        * options.c (gfc_handle_option):  Add handling for
        -frecord-marker=4 and -frecord-marker=8.
        * invoke.texi:  Document -frecord-marker.

2006-03-22  Thomas Koenig  <Thomas.Koenig@onlien.de>

        PR fortran/19303
        * libgfortran.h (compile_options_t):  Add record_marker.
        * runtime/compile_options.c (set_record_marker):
        New function.
        * io/open.c:  If we have four-byte record markers, use
        GFC_INTEGER_4_HUGE as default record length.
        * io/file_pos.c (unformatted_backspace):  Handle
        different size record markers.
        * io/transfer.c (us_read):  Likewise.
        (us_write):  Likewise.
        (next_record_r):  Likewise.
        (write_us_marker):  Likewise.
        (next_record_w):  Likewise.

2006-03-22  Thomas Koenig  <Thomas.Koenig@online.de>

        PR fortran/19303
        * gfortran.dg/record_marker_1.f90:  New test case.
        * gfortran.dg/record_marker_2.f:  New test case.
        * gfortran.dg/record_marker_3.f90:  New test case.


Added:
    trunk/gcc/testsuite/gfortran.dg/record_marker_1.f90
    trunk/gcc/testsuite/gfortran.dg/record_marker_2.f
    trunk/gcc/testsuite/gfortran.dg/record_marker_3.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/invoke.texi
    trunk/gcc/fortran/lang.opt
    trunk/gcc/fortran/options.c
    trunk/gcc/fortran/trans-decl.c
    trunk/gcc/testsuite/ChangeLog
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/file_pos.c
    trunk/libgfortran/io/open.c
    trunk/libgfortran/io/transfer.c
    trunk/libgfortran/libgfortran.h
    trunk/libgfortran/runtime/compile_options.c


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=19303