[Bug fortran/32257] New: Scoping problem in implied do loop in I/O statement

[Bug fortran/32257] New: Scoping problem in implied do loop in I/O statement

[Magnus dot Hagdorn at marsupium dot org]

The following program exposes a problem with the scoping of the loop variable
in the IO statement:

program test
   implicit none
   character(len=100) :: value
   integer, dimension(100) :: intvalues
   integer i

   i = 2
   intvalues = 42
   value = "2 5 69"
   write(*,*) len(trim(value))
   read(value,*,end=20,err=20) (intvalues(i),i=1,100)
20 i=i-1
   !
   ! This should print 1 2 5 69
   !
   write(*,*) i, intvalues(1:3)
   !
   ! This prints the expected output 1 1 100
   !
   i = 1
   intvalues = (/ (i,i=1,100) /)
   print *, i, intvalues(1), intvalues(100)
end program test


-- 
           Summary: Scoping problem in implied do loop in I/O statement
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Magnus dot Hagdorn at marsupium dot org
 GCC build triplet: x86_64-unknown-linux-gnu
  GCC host triplet: x86_64-unknown-linux-gnu
GCC target triplet: x86_64-unknown-linux-gnu


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

[Bug fortran/32257] Scoping problem in implied do loop in I/O statement

[tkoenig at gcc dot gnu dot org]

------- Comment #1 from tkoenig at gcc dot gnu dot org  2007-06-10 18:09 -------
Two points:

- The scoping is correct (i is indeed the same variable)

- i becomes undefined on exit of the implied do loop, so
  the code is illegal.

http://groups.google.de/group/comp.lang.fortran/browse_thread/thread/a991e9f53d97f0ce/ca1b856d01bdbcf2?lnk=st&q=scoping+for+implied+do+loops&rnum=2#

Resolving as invalid.


-- 

tkoenig at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |tkoenig at gcc dot gnu dot
                   |                            |org
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |INVALID


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