1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
program inquire_02
type :: string_t
character(:), allocatable :: s
end type
integer :: unit, pos_value
character(len=1) :: ch
logical :: ex
type(string_t) :: temp
temp%s = "data.txt"
open(unit=10, file="data.txt")
write(10, '(A)', advance='no') 'abcd' ! writes 4 characters, no newline
rewind(10) ! go back to start
read(10, '(A)', advance='no') ch ! read 1 character (1 byte)
inquire(unit=10, pos=pos_value)
inquire(file="data.txt", exist=ex)
print *, "Position:", pos_value
if(pos_value /= 2) error stop
if(ex .neqv. .true.) error stop
end program
|
