aboutsummaryrefslogtreecommitdiff
path: root/example_packages
diff options
context:
space:
mode:
Diffstat (limited to 'example_packages')
-rw-r--r--example_packages/version_file/app/main.f906
1 files changed, 3 insertions, 3 deletions
diff --git a/example_packages/version_file/app/main.f90 b/example_packages/version_file/app/main.f90
index f2ae87b..fcf8d64 100644
--- a/example_packages/version_file/app/main.f90
+++ b/example_packages/version_file/app/main.f90
@@ -1,10 +1,10 @@
program stub
implicit none
- logical :: exist
+ logical :: exists
integer :: unit
character(len=100) :: line
- inquire(file="VERSION", exist=exist)
- if (.not.exist) error stop
+ 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)