Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/direct_io_9.f @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! PR34876 can't read/write zero length array sections ! Test case from PR by Dick Hendrikson program qi0011 character(9) bda(10) character(9) bda1(10) integer j_len istat = -314 inquire(iolength = j_len) bda1 istat = -314 open (unit=48, $ status='scratch', $ access='direct', $ recl = j_len, $ iostat = istat, $ form='unformatted', $ action='readwrite') if (istat /= 0) call abort bda = 'xxxxxxxxx' bda1 = 'yyyyyyyyy' write (48,iostat = istat, rec = 10) bda1(4:3) if ( istat .ne. 0) then call abort endif istat = -314 read (48,iostat = istat, rec=10) bda(4:3) if ( istat .ne. 0) then call abort endif if (any(bda1.ne.'yyyyyyyyy')) call abort if (any(bda.ne.'xxxxxxxxx')) call abort end