This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [gfortran] patch for PR18398, problem with sequentialformatted reads.


after reading over the bugzilla entries again, this is the
best description of the bug: 


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


the test case is thus amended:


! { dg-do run }
!
! pr18398 - Input Format longer than line length causes 
!            following record to be skipped".
! test contributed by Thomas.Koenig@online.de
!
!
      open(7,status='scratch')
      write (7,'(F12.5)') 1.0, 2.0, 3.0
      rewind(7)
      read(7,'(F15.5)') a,b
!   note the read format is wider than the write
      if (abs(a-1.0) .gt. 1e-5) call abort
      if (abs(b-2.0) .gt. 1e-5) call abort
      end



--bud



Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]