40 lines
1.2 KiB
Fortran
40 lines
1.2 KiB
Fortran
! { dg-do run { target fd_truncate } }
|
|
! { dg-options "-std=legacy" }
|
|
!
|
|
! pr19314 inquire(..position=..) segfaults
|
|
! test by Thomas.Koenig@online.de
|
|
! bdavis9659@comcast.net
|
|
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
|