2 ! pr19314 inquire(..position=..) segfaults
3 ! test by Thomas.Koenig@online.de
4 ! bdavis9659@comcast.net
7 open(7,STATUS
='SCRATCH')
8 inquire(7,position
=chr
)
9 if (chr
.NE
.'ASIS') CALL ABORT
11 open(7,STATUS
='SCRATCH',ACCESS
='DIRECT',RECL
=100)
12 inquire(7,position
=chr
)
13 if (chr
.NE
.'UNDEFINED') CALL ABORT
15 open(7,STATUS
='SCRATCH',POSITION
='REWIND')
16 inquire(7,position
=chr
)
17 if (chr
.NE
.'REWIND') CALL ABORT
19 open(7,STATUS
='SCRATCH',POSITION
='ASIS')
20 inquire(7,position
=chr
)
21 if (chr
.NE
.'ASIS') CALL ABORT
23 open(7,STATUS
='SCRATCH',POSITION
='APPEND')
24 inquire(7,position
=chr
)
25 if (chr
.NE
.'APPEND') CALL ABORT
27 open(7,STATUS
='SCRATCH',POSITION
='REWIND')
28 write(7,*)'this is a record written to the file'
29 inquire(7,position
=chr
)
30 if (chr
.NE
.'ASIS') CALL ABORT
32 inquire(7,position
=chr
)
33 if (chr
.NE
.'REWIND') CALL ABORT