Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Fortran

Idiom #59 Write to standard error stream

Print the message "x is negative" to standard error (stderr), with integer x value substitution (e.g. "-2 is negative").

program write_to_stderr
   use iso_fortran_env, only : stderr=>ERROR_UNIT   
   implicit none
   integer :: x=-2
   write(stderr,'(i0," is negative")') x
end program write_to_stderr

with Ada.Text_IO;
use Ada.Text_IO;
Put_Line (Standard_Error, Integer'Image (X) & " is negative");
New implementation...
< > ⌨
programming-idioms.org 
program write_to_stderr
   use iso_fortran_env, only : stderr=>ERROR_UNIT   
   implicit none
   integer :: x=-2
   write(stderr,'(i0," is negative")') x
end program write_to_stderr

Put_Line (Standard_Error, Integer'Image (X) & " is negative");
fprintf(stderr,"%d is negative\n",x);
(binding [*out* *err*]
  (println (str x " is negative")))
int main(){
	int x = -2;
	std::cerr << x <<" is negative\n";
}
std::cerr << x << " is negative\n";

Console.Error.WriteLine($"{x} is negative");
stderr.writeln(x, " is negative");
stderr.write("$x is negative");
IO.puts :stderr, "#{x} is negative"
io:format(standard_error, "~p is negative~n", [X]).
fmt.Fprintln(os.Stderr, x, "is negative")
hPutStrLn stderr (show (x) ++ " is negative")
console.error(`${x} is negative`);
console.error(util.format("%d is negative", x));
console.error(x, "is negative");
System.err.printf("%d is negative", x);
System.err.format("%d is negative\n",x);
System.err.println("$x is negative")

(format *error-output*
        "~a is negative"
        x)
io.stderr:write(string.format("%d is negative\n",x))
NSLog(@"%d is negative",x)
fwrite(STDERR, "{$x} is negative\n");
writeln(StdErr, Format('%d is negative',[-2]));
writeln(StdErr , x , ' is negative');
print STDERR "$x is negative";
print(x, "is negative", file=sys.stderr)
warn "#{x} is negative"
$stderr.puts "%d is negative" % x
eprintln!("{} is negative", x);
System.err.println(s"$x is negative")
OS.Stderr 
  nextPutAll: x asString;
  nextPutAll: ' is negative';
  nextPut: Character cr.