URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [record_marker_2.f] - Rev 312
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run { target fd_truncate } } ! { dg-options "-frecord-marker=4" } ! This file is all about BACKSPACE ! Adapted from gfortran.dg/backspace.f integer i, n, nr real x(10), y(10) ! PR libfortran/20068 open (20, status='scratch') write (20,*) 1 write (20,*) 2 write (20,*) 3 rewind (20) read (20,*) i if (i .ne. 1) call abort backspace (20) read (20,*) i if (i .ne. 1) call abort close (20) ! PR libfortran/20125 open (20, status='scratch') write (20,*) 7 backspace (20) read (20,*) i if (i .ne. 7) call abort close (20) open (20, status='scratch', form='unformatted') write (20) 8 backspace (20) read (20) i if (i .ne. 8) call abort close (20) ! PR libfortran/20471 do n = 1, 10 x(n) = sqrt(real(n)) end do open (3, form='unformatted', status='scratch') write (3) (x(n),n=1,10) backspace (3) rewind (3) read (3) (y(n),n=1,10) do n = 1, 10 if (abs(x(n)-y(n)) > 0.00001) call abort end do close (3) ! PR libfortran/20156 open (3, form='unformatted', status='scratch') do i = 1, 5 x(1) = i write (3) n, (x(n),n=1,10) end do nr = 0 rewind (3) 20 continue read (3,end=30,err=90) n, (x(n),n=1,10) nr = nr + 1 goto 20 30 continue if (nr .ne. 5) call abort do i = 1, nr+1 backspace (3) end do do i = 1, nr read(3,end=70,err=90) n, (x(n),n=1,10) if (abs(x(1) - i) .gt. 0.001) call abort end do close (3) stop 70 continue call abort 90 continue call abort end
Go to most recent revision | Compare with Previous | Blame | View Log