[Bug libfortran/25289] New: Cannot handle record numbers large than huge(0_4)

[Bug libfortran/25289] New: Cannot handle record numbers large than huge(0_4)

[fxcoudert at gcc dot gnu dot org]

malo /tmp $ cat a.f
      integer*1 abyte
      integer*8 n
      n = huge(0_4)
      n = 256 * n
      print *, n
      open(10,file="foo",recl=1,form='unformatted',access='direct')
      write(10,rec=n) abyte
      close(10)
      end
malo /tmp $ ifort a.f && ./a.out
          549755813632
malo /tmp $ ls -lh foo
-rw-r--r--  1 fx fx 2.0T Dec  7 00:29 foo
malo /tmp $ gfortran a.f && ./a.out
         549755813632
At line 7 of file a.f
Fortran runtime error: Record number must be positive


-- 
           Summary: Cannot handle record numbers large than huge(0_4)
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: fxcoudert at gcc dot gnu dot org


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

[Bug libfortran/25289] Cannot handle record numbers large than huge(0_4)

[jb at gcc dot gnu dot org]

------- Comment #1 from jb at gcc dot gnu dot org  2005-12-10 16:17 -------
Confirmed. I guess this is because rec=n is transferred to the library as a
gfc_integer_4, but it should be gfc_offset.


-- 

jb at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2005-12-10 16:17:25
               date|                            |


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

[Bug libfortran/25289] Cannot handle record numbers large than huge(0_4)

[fxcoudert at gcc dot gnu dot org]

------- Comment #2 from fxcoudert at gcc dot gnu dot org  2005-12-10 17:52 -------
(In reply to comment #1)
> Confirmed. I guess this is because rec=n is transferred to the library as a
> gfc_integer_4, but it should be gfc_offset.

Yes, I was beginning to think about that, but it has strongly implications on
the general front-end/library configury, I guess. See my last mails in ml
thread "Generalizing the library to arbitrary floating point modes" (the topic
deviated!).


-- 


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

[Bug libfortran/25289] Cannot handle record numbers large than huge(0_4)

[jvdelisle at gcc dot gnu dot org]

------- Comment #3 from jvdelisle at gcc dot gnu dot org  2006-06-18 21:01 -------
I am taking a shot at this.


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |jvdelisle at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2005-12-10 16:17:25         |2006-06-18 21:01:18
               date|                            |


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

[Bug libfortran/25289] Cannot handle record numbers large than huge(0_4)

[patchapp at dberlin dot org]

------- Comment #4 from patchapp at dberlin dot org  2006-06-29 21:37 -------
Subject: Bug number PR25289

A patch for this bug has been added to the patch tracker.
The mailing list url for the patch is
http://gcc.gnu.org/ml/gcc-patches/2006-06/msg00997.html


-- 


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

[Bug libfortran/25289] Cannot handle record numbers large than huge(0_4)

[jvdelisle at gcc dot gnu dot org]

------- Comment #5 from jvdelisle at gcc dot gnu dot org  2006-07-24 00:18 -------
Subject: Bug 25289

Author: jvdelisle
Date: Mon Jul 24 00:17:52 2006
New Revision: 115698

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=115698
Log:
2006-07-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/25289
        * libgfortran.h: Add conditional definition of GFC_LARGE_IO_INT type.
        * io/io.h (st_parameter_dt): Define rec as type GFC_LARGE_IO_INT.

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/io.h
    trunk/libgfortran/libgfortran.h


-- 


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

[Bug libfortran/25289] Cannot handle record numbers large than huge(0_4)

[jvdelisle at gcc dot gnu dot org]

------- Comment #6 from jvdelisle at gcc dot gnu dot org  2006-07-24 00:19 -------
Subject: Bug 25289

Author: jvdelisle
Date: Mon Jul 24 00:19:45 2006
New Revision: 115700

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=115700
Log:
2006-07-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR fortran/25289
        * gfortran.h: Declare gfc_large_io_int_kind.
        * trans-types.c (gfc_init_kinds): Set gfc_large_io_int_kind
        to size 8 or 4.
        * trans-io.c (enum iofield_type): Add large_io_int type.
        (gfc_build_st_parameter): Same.
        (gfc_build_io_library_fndecls): Same.
        * ioparm_def: Use large_io_int to define rec.

Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/ioparm.def
    trunk/gcc/fortran/trans-io.c
    trunk/gcc/fortran/trans-types.c


-- 


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

[Bug libfortran/25289] Cannot handle record numbers large than huge(0_4)

[jvdelisle at gcc dot gnu dot org]

------- Comment #7 from jvdelisle at gcc dot gnu dot org  2006-07-24 00:26 -------
Subject: Bug 25289

Author: jvdelisle
Date: Mon Jul 24 00:26:08 2006
New Revision: 115702

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=115702
Log:
2006-07-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR fortran/25289
        * gfortran.dg/direct_io_6.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/direct_io_6.f90
Modified:
    trunk/gcc/testsuite/ChangeLog


-- 


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

[Bug libfortran/25289] Cannot handle record numbers large than huge(0_4)

[jvdelisle at gcc dot gnu dot org]

------- Comment #8 from jvdelisle at gcc dot gnu dot org  2006-07-29 05:12 -------
Fixed on 4.2


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED
   Target Milestone|---                         |4.2.0


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