Commit 0a2b4220 authored by Jorn Bruggeman's avatar Jorn Bruggeman
Browse files

use formatted output for logging/error reporting

parent b3a5f19a
......@@ -30,7 +30,7 @@ contains
class (type_base_driver), intent(inout) :: self
character(len=*), intent(in) :: location, message
write (*,*) trim(location) // ': ' // trim(message)
write (*,'(a,": ",a)') trim(location), trim(message)
stop 1
end subroutine
......@@ -38,7 +38,7 @@ contains
class (type_base_driver), intent(inout) :: self
character(len=*), intent(in) :: message
write (*,*) trim(message)
write (*,'(a)') trim(message)
end subroutine
subroutine fatal_error(location, message)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment