example_packages/version_file/app/main.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

program stub
  implicit none
  logical :: exist
  integer :: unit
  character(len=100) :: line
  inquire(file="VERSION", exist=exist)
  if (.not.exist) error stop
  open(file="VERSION", newunit=unit)
  read(unit, '(a)') line
  close(unit)

  print '(*(a))', "File VERSION contains '", trim(line), "'"
end program stub