Skip to content
Snippets Groups Projects

Fortran error tests

1 file
+ 2
0
Compare changes
  • Side-by-side
  • Inline
+ 2
0
@@ -217,6 +217,7 @@ contains
@@ -217,6 +217,7 @@ contains
write(stdout, '(a)') error_msg
write(stdout, '(a)') error_msg
! Maybe also abort if the output is necesssary or handle this
! Maybe also abort if the output is necesssary or handle this
! some other way.
! some other way.
 
stop
endif
endif
#endif
#endif
call jall%balance()
call jall%balance()
@@ -235,6 +236,7 @@ contains
@@ -235,6 +236,7 @@ contains
write(stdout, '(a)') error_msg
write(stdout, '(a)') error_msg
! Maybe also abort if the output is necesssary or handle this
! Maybe also abort if the output is necesssary or handle this
! some other way.
! some other way.
 
stop
endif
endif
#endif
#endif
Loading