Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Seitosh
Seitosh
Commits
747c6949
Commit
747c6949
authored
Apr 05, 2019
by
thomas.forbriger
Browse files
ref/tools/chopmod [TASK]: print meaningful error message
parent
893b379f
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/synt/ref/tools/chopmod.f
View file @
747c6949
...
...
@@ -399,7 +399,7 @@ c open output
if
(
replace
)
then
open
(
lu
,
file
=
outfile
,
err
=
99
)
else
open
(
lu
,
file
=
outfile
,
status
=
'new'
,
err
=
99
)
open
(
lu
,
file
=
outfile
,
err
=
96
,
status
=
'new'
)
endif
write
(
lu
,
'(a72)'
,
err
=
98
)
text
c
----------------------------------------------------------------------
...
...
@@ -475,6 +475,8 @@ c 53 format(18x,a)
99
stop
'ERROR: opening output file'
98
stop
'ERROR: writing output file'
97
stop
'ERROR: closing output file'
96
print
*
,
'ERROR: opening output file'
stop
'ERROR: if output file exists, consider option -o'
end
c
======================================================================
c
subroutines
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment