Stop fortran-Programm mit nicht-null exit status

Ich bin die Anpassung einige Fortran-code habe ich nicht geschrieben, und ohne eine Menge von fortran-Erfahrung selbst. Ich habe gerade eine situation, wo einige fehlerhafte Eingabe bekam stillschweigend ignoriert, und würde das gerne ändern, dass der code etwas besser geeignet. Wenn das C ist, dann würde ich etwas tun, wie

fprintf(stderr, "There was an error of kind foo");
exit(EXIT_FAILURE);

Aber in fortran, die besten, die ich kenne, wie zu tun, sieht aus wie

write(*,*) 'There was an error of kind foo'
stop

die nicht über die Wahl der Ausgabe-stream (minor Problem) - und exit-status (großes problem).

Wie kann ich kündigen, ein fortran-Programm mit einem nicht-null exit status?

In diesem Fall ist compiler-abhängig, eine Lösung, die funktioniert mit gfortran wäre schön.

InformationsquelleAutor der Frage MvG | 2013-06-30

Schreibe einen Kommentar