Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/inquire_19.f90 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! PR84506 INQUIRE(pos=) always sets pos=0 with -fdefault-integer-8 program TestInquire implicit none integer(8) :: iUnit integer(8) :: iPos open(newunit=iunit, file='output.txt', access='stream', status='replace') write(iUnit) 'TEXT' inquire(iUnit, pos=iPos) close(iUnit, status='delete') !print *, iPos if (iPos.ne.5) stop 1 end program TestInquire