URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr16597.f90] - Blame information for rev 12

Details | Compare with Previous | View Log


! { dg-do run }
! pr 16597
! libgfortran
! reading a direct access record after it was written did
! not always return the correct data.
 
      program gfbug4
      implicit none
 
      integer      strlen
      parameter    (strlen = 4)
 
      integer      iunit
      character    string *4
 
      iunit = 99
      open (UNIT=iunit,FORM='unformatted',ACCESS='direct',RECL=strlen)
      write (iunit, rec=1) 'ABCD'
      read (iunit, rec=1) string
      close (iunit)
      if (string.ne.'ABCD') call abort
 
      open (UNIT=iunit,FORM='unformatted',ACCESS='direct',STATUS='scratch',RECL=strlen)
      write (iunit, rec=1) 'ABCD'
      read (iunit, rec=1) string
      close (iunit)
      if (string.ne.'ABCD') call abort
      end

Line No.	Rev	Author	Line
1	12	jlechner	`! { dg-do run }`
2			`! pr 16597`
3			`! libgfortran`
4			`! reading a direct access record after it was written did`
5			`! not always return the correct data.`
6
7			`program gfbug4`
8			`implicit none`
9
10			`integer strlen`
11			`parameter (strlen = 4)`
12
13			`integer iunit`
14			`character string *4`
15
16			`iunit = 99`
17			`open (UNIT=iunit,FORM='unformatted',ACCESS='direct',RECL=strlen)`
18			`write (iunit, rec=1) 'ABCD'`
19			`read (iunit, rec=1) string`
20			`close (iunit)`
21			`if (string.ne.'ABCD') call abort`
22
23			`open (UNIT=iunit,FORM='unformatted',ACCESS='direct',STATUS='scratch',RECL=strlen)`
24			`write (iunit, rec=1) 'ABCD'`
25			`read (iunit, rec=1) string`
26			`close (iunit)`
27			`if (string.ne.'ABCD') call abort`
28			`end`

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr16597.f90] - Blame information for rev 12