------- 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
