Skip to content
Snippets Groups Projects
Commit c18129d5 authored by Thomas Jahns's avatar Thomas Jahns :cartwheel:
Browse files

Remove unused variables from wrappers.

parent 6b1074c0
No related branches found
No related tags found
1 merge request!5Intentional change
......@@ -804,7 +804,6 @@ contains
integer, intent(IN) :: lineno
character(LEN=*), intent(IN) :: routine_str
character(len=max_mtime_error_str_len) :: error_str
if (lcond) call handle_errno_base(errno, routine_str, lineno)
end subroutine handle_errno_cond
......
......@@ -9,7 +9,6 @@
CHARACTER(len=*), INTENT(in) :: dt_string
TYPE(c_ptr) :: c_pointer
TYPE(datetime), POINTER :: dt_tmp
INTEGER :: errno
c_pointer = my_newdatetime(TRIM(ADJUSTL(dt_string))//c_null_char)
CALL handle_errno(.NOT. c_ASSOCIATED(c_pointer), 4 *100 + 1, &
& __FILE__, &
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment