[Bug libfortran/18398] Formatted I/O problems

2005-01-07 Thread pinskia at gcc dot gnu dot org 

--- Additional Comments From pinskia at gcc dot gnu dot org  2005-01-07 
14:01 ---
Fixed.

-- 
   What|Removed |Added

 Status|NEW |RESOLVED
 Resolution||FIXED
   Target Milestone|--- |4.0.0


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

[Bug libfortran/18398] Formatted I/O problems

2005-01-06 Thread tobi at gcc dot gnu dot org 


-- 
   What|Removed |Added

OtherBugsDependingO||19292
  nThis||


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

[Bug libfortran/18398] Formatted I/O problems

2005-01-06 Thread cvs-commit at gcc dot gnu dot org 

--- Additional Comments From cvs-commit at gcc dot gnu dot org  2005-01-07 
03:25 ---
Subject: Bug 18398

CVSROOT:/cvs/gcc
Module name:gcc
Changes by: [EMAIL PROTECTED]   2005-01-07 03:25:48

Modified files:
gcc/testsuite  : ChangeLog 
libgfortran: ChangeLog 
libgfortran/io : transfer.c 
Added files:
gcc/testsuite/gfortran.dg: fmt_read.f90 

Log message:
2005-01-07  Bud Davis  [EMAIL PROTECTED]

PR fortran/18398
* transfer.c (next_record_r): always skip the
eol search if it was found during sf_read.

* gfortran.dg/fmt_read.f90: New test.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/fmt_read.f90.diff?cvsroot=gccr1=NONEr2=1.1
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gccr1=1.4858r2=1.4859
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/ChangeLog.diff?cvsroot=gccr1=1.143r2=1.144
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/transfer.c.diff?cvsroot=gccr1=1.23r2=1.24



-- 


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

[Bug libfortran/18398] Formatted I/O problems

2005-01-05 Thread Thomas dot Koenig at online dot de 

--- Additional Comments From Thomas dot Koenig at online dot de  2005-01-05 
08:33 ---
A testcase with character variables:

$ gfortran cline
$ cat cline.f
  character*2 c1,c2
  open(7)
  write (7,'(A1)') 'a','b','c'
  rewind(7)
  read(7,'(A2)') c1,c2
  print *,c1,c2
  if (c2 .ne. 'b ') call abort
  end
$ gfortran cline.f
$ ./a.out
 a c
Aborted
$ g77 cline.f
$ ./a.out
 a b

I think this bug can be summed up as:

Input Format longer than line length causes following record to be skipped.

This bug may be the reason for the I/O related LAPACK failures.
In the driver programs, for example cchkaa.f at line 314, there's the line

  READ( NIN, FMT = '(A72)', END = 140 )ALINE

If the input line in question is shorter than 72 characters, this bug
will cause the next line to be skipped, with - presumably - bad consequences.


-- 
   What|Removed |Added

 CC||Thomas dot Koenig at online
   ||dot de


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

[Bug libfortran/18398] Formatted I/O problems

2005-01-05 Thread bdavis at gcc dot gnu dot org 

--- Additional Comments From bdavis at gcc dot gnu dot org  2005-01-06 
06:13 ---
patch here:


http://gcc.gnu.org/ml/fortran/2005-01/msg00038.html

-- 


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

[Bug libfortran/18398] Formatted I/O problems

2005-01-04 Thread Thomas dot Koenig at online dot de 

--- Additional Comments From Thomas dot Koenig at online dot de  2005-01-04 
22:20 ---
Even shorter testcase:

$ cat fio.f
  open(7)
  write (7,'(F12.5)') 1.0, 2.0, 3.0
  rewind(7)
  read(7,'(F15.5)') a,b
  print *,a,b
  if (abs(a-1.0) .gt. 1e-5) call abort
  if (abs(b-2.0) .gt. 1e-5) call abort
  end
$ gfortran fio.f  ./a.out
   1.00   3.00
$ gfortran -dumpmachine
i686-pc-linux-gnu
Aborted
$ gfortran -v
Using built-in specs.
Configured with: ../gcc/configure --prefix=/home/ig25 
--enable-languages=c,c++,f95
Thread model: posix
gcc version 4.0.0 20050103 (experimental)

Here's what should happen:

$ g77 fio.f  ./a.out
  1.  2.


-- 


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

[Bug libfortran/18398] Formatted I/O problems

2005-01-04 Thread Thomas dot Koenig at online dot de 

--- Additional Comments From Thomas dot Koenig at online dot de  2005-01-04 
22:31 ---
 $ gfortran fio.f  ./a.out
1.00   3.00
 $ gfortran -dumpmachine
 i686-pc-linux-gnu
 Aborted

I had mixed up my cutpaste there... of course,
it was the test program that aborted, not the
gfortran -dumpmachine command.

-- 


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

[Bug libfortran/18398] Formatted I/O problems

2004-11-27 Thread bdavis at gcc dot gnu dot org 

--- Additional Comments From bdavis at gcc dot gnu dot org  2004-11-27 
15:33 ---
here's a shorter test case:

  program  rinput
  implicit double precision(a-h,o-z)
  character *8 a,b
  open(unit=7)
  write(7,*)'aaa123.456'
  write(7,*)'bbb-123.456'
  write(7,*)
  rewind(7)
  610 format(a8,f10.5)
  read (7,610) a,cafin ,b,angmom
  print*, a,cafin ,b,angmom
  stop
  end


-- 


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

[Bug libfortran/18398] Formatted I/O problems

2004-11-26 Thread bdavis at gcc dot gnu dot org 


-- 
   What|Removed |Added

 Status|UNCONFIRMED |NEW
 Ever Confirmed||1
   Last reconfirmed|-00-00 00:00:00 |2004-11-26 14:34:00
   date||


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

[Bug libfortran/18398] Formatted I/O problems

2004-11-09 Thread sfilippone at uniroma2 dot it 

--- Additional Comments From sfilippone at uniroma2 dot it  2004-11-09 
14:02 ---
Created an attachment (id=7500)
 -- (http://gcc.gnu.org/bugzilla/attachment.cgi?id=7500action=view)
Test case source code


-- 


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

[Bug libfortran/18398] Formatted I/O problems

2004-11-09 Thread sfilippone at uniroma2 dot it 

--- Additional Comments From sfilippone at uniroma2 dot it  2004-11-09 
14:03 ---
Created an attachment (id=7501)
 -- (http://gcc.gnu.org/bugzilla/attachment.cgi?id=7501action=view)
test case input file


-- 


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