blob: fcf8d64ffd72eea4cdc79d8e6afad2e710f22dff (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
program stub
implicit none
logical :: exists
integer :: unit
character(len=100) :: line
inquire(file="VERSION", exist=exists)
if (.not.exists) error stop "File VERSION does not exist."
open(file="VERSION", newunit=unit)
read(unit, '(a)') line
close(unit)
print '(*(a))', "File VERSION contains '", trim(line), "'"
end program stub
|
