We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent d9a325a commit 63288a6Copy full SHA for 63288a6
example_packages/version_file/app/main.f90
@@ -1,10 +1,10 @@
1
program stub
2
implicit none
3
- logical :: exist
+ logical :: exists
4
integer :: unit
5
character(len=100) :: line
6
- inquire(file="VERSION", exist=exist)
7
- if (.not.exist) error stop
+ inquire(file="VERSION", exist=exists)
+ if (.not.exists) error stop "File VERSION does not exist."
8
open(file="VERSION", newunit=unit)
9
read(unit, '(a)') line
10
close(unit)
0 commit comments