------- Comment #2 from kargl at gcc dot gnu dot org  2008-12-22 00:28 -------
Please attach long files instead of embedded the code within the bug report.
It makes it harder to copy and paste from a browser.

The code works with 4.3.3, so this is a regression.  Here's a reduced 
testcase that needs to be linked to iso_varying_string.  Save this 
as lkl.f90 and compile.

program test_iso

   use iso_varying_string

   implicit none

   type(varying_string) :: v_str
   integer              :: i, ios
   character(len=1)     :: newlinechar=";"

   open (unit=1,file='lkl.f90', status='OLD')

   i = 0

   do
      CALL get(unit=1,string=v_str, set=newlinechar, iostat=ios)
      if (ios.GT.0) stop 'Error on vs2 read'
      if (ios.EQ.-1) exit
      i = i + 1
      print *, i, trim(char(v_str))
   end do
end


-- 

kargl at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Priority|P3                          |P4
   Last reconfirmed|0000-00-00 00:00:00         |2008-12-22 00:28:42
               date|                            |
            Summary|run time error (crash) -    |[regression 4.4] segfault -
                   |optional arguments,         |optional arguments,
                   |generics, interface problem,|generics, interface problem,
                   |iso_varying_string ??       |iso_varying_string ??


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

Reply via email to