------- Comment #4 from jvdelisle at verizon dot net  2005-11-08 06:37 -------
Subject: Re:  [4.1 Regression] Nonadvancing read does not
 read more than 1 line

> For sake of compliance with the bug report policy:
> * gfortran from cvs via 
>     TZ=GMT cvs -q update -D'2005.10.24.03.00.00'
>   works,
> * gfortran from cvs via 
>     TZ=GMT cvs -q update -D'2005.10.24.04.00.00'
>   does not.
> 

Sven,
Thanks for reporting this and narrowing it down.

> By the way, there is another small issue with the above testcase. I'm not sure
> if I should file a separate bug report for it:
> Changing line 6 of regression.f90 to 
> 
> 10    read(unit = 1, fmt = '(a)', advance = 'no', end = 99, eor = 10) saux
> 
> gives the incorrect warning:
> 
>  In file regression.f90:6
> 
> 10    read(unit = 1, fmt = '(a)', advance = 'no', end = 99, eor = 10) saux
>                                                                          1
> Warning: Branch at (1) causes an infinite loop
> 
> while ifort and g95 do not complain.
> 
> 

This is a warning and you can get rid of warnings with the -w flag when
invoking 
gfc.  It warns of a potential problem.  Let me know if -w does not get rid of
it 
for you.

Regards,

Jerry


-- 


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

Reply via email to