Skip to content
Snippets Groups Projects
Commit cdb3d045 authored by Sergey Kosukhin's avatar Sergey Kosukhin
Browse files

Address a warning from gfortran 12

parent 1919444f
No related tags found
1 merge request!73Rewrite simulate_iau so it does not need mtime_hl
Pipeline #93721 passed
Stage: test
Stage: deploy
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 0 deletions
examples/uniq.f90
+ 2
− 0
View file @ cdb3d045
...@@ -88,6 +88,8 @@ PROGRAM output_test ...@@ -88,6 +88,8 @@ PROGRAM output_test
CALL remove_duplicate_intervals(begin_str, end_str, intvl_str, nintvls, indices_to_use, remaining_intvls) CALL remove_duplicate_intervals(begin_str, end_str, intvl_str, nintvls, indices_to_use, remaining_intvls)
n_event_steps = 0 n_event_steps = 0
n_event_steps_a = 0
n_event_steps_b = 0
tmp_jd => newJulianday(0_i8, 0_i8) tmp_jd => newJulianday(0_i8, 0_i8)
ALLOCATE (mtime_date_container_a(256), stat=ierrstat) ALLOCATE (mtime_date_container_a(256), stat=ierrstat)
......
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

Imprint | Privacy Policy