OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [write_direct_eor.f90] - Rev 154

Compare with Previous | Blame | View Log

! { dg-do run }
! PR26509 : Writing beyond fixed length direct access records.
! Test case derived from PR.
! Submitted  by Jerry Delisle <jvdelisle@gcc.gnu.org>.
program testrecl
      implicit none
      open(unit = 10, form = 'unformatted', access = 'direct', recl = 4)
      write(unit=10,rec=1, err=100) 1d0
      call abort()
 100  continue
      close(unit=10, status='delete')
      end

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.