[Bug libfortran/61173] New: [4.9/4.10 Regression] Erroneous "end of file" with internal read

[Bug libfortran/61173] New: [4.9/4.10 Regression] Erroneous "end of file" with internal read

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

            Bug ID: 61173
           Summary: [4.9/4.10 Regression] Erroneous "end of file" with
                    internal read
           Product: gcc
           Version: 4.10.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: dominiq at lps dot ens.fr
                CC: jvdelisle at gcc dot gnu.org

Compiling the following test from
https://gcc.gnu.org/ml/fortran/2014-05/msg00046.html

module bd
  character(len=256), dimension(:), allocatable, save :: source
  contains
    subroutine init_data

      allocate(source(3))
      deallocate(source)

      allocate(source(2))

      source=["   1   1   1","   4   4   4"]

    end subroutine init_data
end module bd
program read_internal

  use bd

  integer :: x(6),i,iostat
  character(len=512) :: iomsg

  call init_data

  read(source,*,iostat=iostat,iomsg=iomsg) (x(i), i=1,6)
  if( iostat /= 0 ) then
     write(*,*) "Error: ",trim(iomsg)
  else
     write(*,*) (x(i), i=1,6)
  end if
end program read_internal

with 4.9.0 or trunk gives at runtime the following error

 Error: End of file

r208320 (2014-03-04) gives

           1           1           1           4           4           4

and r208478 (2014-03-11) gives the error. This likely due to r208438 (pr38199).

[Bug libfortran/61173] [4.9/4.10 Regression] Erroneous "end of file" with internal read

[rguenth at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

Richard Biener <rguenth at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
   Target Milestone|---                         |4.9.1

[Bug libfortran/61173] [4.9/4.10 Regression] Erroneous "end of file" with internal read

[krefson at googlemail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

Keith Refson <krefson at googlemail dot com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |krefson at googlemail dot com

--- Comment #1 from Keith Refson <krefson at googlemail dot com> ---
I just worked out why the testcase originally failed to reproduce the problem. 
libgfortran.so was dynamically linking against the older version in /lib64 not
the version in /usr/local/gcc-4.9/lib.  This fails as expected in my testcase
after all.

[Bug libfortran/61173] [4.9/4.10 Regression] Erroneous "end of file" with internal read

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2014-05-13
     Ever confirmed|0                           |1

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> I just worked out why the testcase originally failed to reproduce the problem.
>  libgfortran.so was dynamically linking against the older version in /lib64
> not the version in /usr/local/gcc-4.9/lib.  This fails as expected in my
> testcase after all.

Indeed a problem I know (I do the bisection with self contained versions).

[Bug libfortran/61173] [4.9/4.10 Regression] Erroneous "end of file" with internal read

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Assignee|unassigned at gcc dot gnu.org      |jvdelisle at gcc dot gnu.org

--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
I will start working on this, this weekend. Thanks for report and test case

[Bug libfortran/61173] [4.9/4.10 Regression] Erroneous "end of file" with internal read

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

--- Comment #4 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Patch here:

https://gcc.gnu.org/ml/gcc-patches/2014-05/msg02065.html

[Bug libfortran/61173] [4.9/4.10 Regression] Erroneous "end of file" with internal read

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

--- Comment #5 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Author: jvdelisle
Date: Sat May 24 19:26:02 2014
New Revision: 210898

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

    PR libfortran/61173
    * io/list_read.c (eat_spaces): If the next character pointed to
    is a space, don't seek, must be at the end.

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/list_read.c

[Bug libfortran/61173] [4.9/4.10 Regression] Erroneous "end of file" with internal read

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

--- Comment #6 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Author: jvdelisle
Date: Sat May 24 19:30:38 2014
New Revision: 210899

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

    PR libfortran/61173
    gfortran.dg/arrayio_14.f90: New test.

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

[Bug libfortran/61173] [4.9/4.10 Regression] Erroneous "end of file" with internal read

[krefson at gmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

--- Comment #7 from Keith Refson <krefson at gmail dot com> ---
Is it possible to say which version of gcc will contain the fix?  It is not in
the "gfortran.com" snapshot dated 20140528. Will this go in to the 4.9.1
release?

[Bug libfortran/61173] [4.9/4.10 Regression] Erroneous "end of file" with internal read

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

--- Comment #8 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
I will backport to 4.9 in the next few days so it will get into 4.9.1

I am not sure how your snapshot is set up.  If it is using dynamically loaded
library, you may be getting the newer gfortran calling an older libgfortran in
the library search path. So try with -static to see if that works. It should be
in the 4.10 trunk by the date you gave for the snapshot.

[Bug libfortran/61173] [4.9/4.10 Regression] Erroneous "end of file" with internal read

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

--- Comment #9 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Author: jvdelisle
Date: Sat Jun  7 17:35:35 2014
New Revision: 211345

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

    Backport from trunk.
    PR libfortran/61173
    * io/list_read.c (eat_spaces): If the next character pointed to
    is a space, don't seek, must be at the end.

Modified:
    branches/gcc-4_9-branch/libgfortran/ChangeLog
    branches/gcc-4_9-branch/libgfortran/io/list_read.c

[Bug libfortran/61173] [4.9/4.10 Regression] Erroneous "end of file" with internal read

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

--- Comment #10 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Author: jvdelisle
Date: Sat Jun  7 17:39:31 2014
New Revision: 211346

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

    Backport from trunk.
    PR libfortran/61173
    * gfortran.dg/arrayio_14.f90: New test.

Added:
    branches/gcc-4_9-branch/gcc/testsuite/gfortran.dg/arrayio_14.f90
Modified:
    branches/gcc-4_9-branch/gcc/testsuite/ChangeLog

[Bug libfortran/61173] [4.9/4.10 Regression] Erroneous "end of file" with internal read

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61173

Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|---                         |FIXED

--- Comment #11 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Fixed on 4.9, and closing.