Skip to content
Snippets Groups Projects

fix line truncation error

Closed Xingran Wang requested to merge k202149/libmtime:fix_line_truncation_error into master
1 unresolved thread
1 file
+ 3
1
Compare changes
  • Side-by-side
  • Inline
@@ -19,7 +19,9 @@
c_pointer = my_newjuliandelta(sign, day, ms)
!print *,sign, c_pointer
if (.not. c_associated(c_pointer)) then
call handle_errno(1 * 100 + 1, __FILE__, __LINE__)
call handle_errno(1 * 100 + 1, &
& __FILE__, &
& __LINE__)
t_juliandelta_assign_raw%jd%sign = 'L'
else
call c_f_pointer(c_pointer, jd_tmp)
Loading