inquire_5.f90

来自「用于进行gcc测试」· F90 代码 · 共 38 行

! { dg-do run }
! pr19314 inquire(..position=..) segfaults
! test by [e-mail]
!         [e-mail]
      implicit none
      character*20 chr
      open(7,STATUS='SCRATCH')
      inquire(7,position=chr)
      if (chr.NE.'ASIS') CALL ABORT
      close(7)
      open(7,STATUS='SCRATCH',ACCESS='DIRECT',RECL=100)
      inquire(7,position=chr)
      if (chr.NE.'UNDEFINED') CALL ABORT
      close(7)
      open(7,STATUS='SCRATCH',POSITION='REWIND')
      inquire(7,position=chr)
      if (chr.NE.'REWIND') CALL ABORT
      close(7)
      open(7,STATUS='SCRATCH',POSITION='ASIS')
      inquire(7,position=chr)
      if (chr.NE.'ASIS') CALL ABORT
      close(7)
      open(7,STATUS='SCRATCH',POSITION='APPEND')
      inquire(7,position=chr)
      if (chr.NE.'APPEND') CALL ABORT
      close(7)
      open(7,STATUS='SCRATCH',POSITION='REWIND')
      write(7,*)'this is a record written to the file'
      write(7,*)'this is another record'
      backspace(7)
      inquire(7,position=chr)
      if (chr.NE.'ASIS') CALL ABORT
      rewind(7)
      inquire(7,position=chr)
      if (chr.NE.'REWIND') CALL ABORT
      close(7)
      end