Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/write_direct_eor.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { 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