Return exit status codes w/o extra output

[tobias-burnus]

Hello,

I'd like to return exit error codes if an error occures, but I don't want to output this exit error code.

Currently I use:

if(iostat /= 0) then
  write(ERROR_UNIT,*) 'Cannot open file "',trim(filename),'"'
  stop 1
end if

But this shows not only the error message but also a "spurious" one. If I write

stop "some error string"

or simply

stop

then the exit status code is zero.

Any ideas?

Tobias

[Steven_L_Intel1]

Try CALL EXIT(1) instead.