aboutsummaryrefslogtreecommitdiff
path: root/example_packages
diff options
context:
space:
mode:
authorSebastian Ehlert <28669218+awvwgk@users.noreply.github.com>2021-06-23 08:56:32 +0200
committerGitHub <noreply@github.com>2021-06-23 08:56:32 +0200
commit63288a62ceeb20c53ba656b89c0f7c709ad9dbaa (patch)
treefb2cce077a812ef80451ecdc209fe03ced0c928d /example_packages
parentd9a325a01f5a63bdd99be690f8886b0b8b81aa44 (diff)
downloadfpm-63288a62ceeb20c53ba656b89c0f7c709ad9dbaa.tar.gz
fpm-63288a62ceeb20c53ba656b89c0f7c709ad9dbaa.zip
Add meaningful error message to example package
Co-authored-by: Milan Curcic <caomaco@gmail.com>
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)