Commit ca09f34c authored by Lorenz Huedepohl's avatar Lorenz Huedepohl
Browse files

Fixes for ifort (is missing a F2008 feature)

parent 90ae0b46
......@@ -131,7 +131,14 @@ module ftimings
type(node_t), private, pointer :: root => NULL() !< Start of graph
type(node_t), private, pointer :: current_node => NULL() !< Current position in the graph
procedure(timer_error_handler_t), private, pass, pointer:: error_handler => default_error_handler
procedure(timer_error_handler_t), private, pass, pointer :: &
#ifndef __INTEL_COMPILER
error_handler => default_error_handler
#else
! ifort does not support setting an 'initial-data-target' for procedure pointers
error_handler => NULL()
#endif
class(timer_error_handle_t), private, pointer :: error_handle => NULL()
contains
......@@ -313,6 +320,13 @@ module ftimings
subroutine timer_enable(self)
class(timer_t), intent(inout), target :: self
#ifdef __INTEL_COMPILER
! work-around for ifort
if (.not. associated(self%error_handler)) then
self%error_handler => default_error_handler
endif
#endif
self%active = .true.
end subroutine
......
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