chore: elim nagfor warning about unset variable

sourceryinstitute · Jul 21, 2024 · e160e14 · e160e14
1 parent 47efe6b
commit e160e14
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/julienne/julienne_file_s.f90 b/src/julienne/julienne_file_s.f90
@@ -88,6 +88,8 @@ function line_lengths(file_unit) result(lengths)
         do line_num = 1, num_lines
           do
             read(file_unit, '(a)', advance='no', iostat=io_status, iomsg=error_message) c
+            associate(eliminate_nagfor_warning => c) ! eliminates "variable c set but never referenced" warning
+            end associate
             if (io_status==iostat_eor .or. io_status==iostat_end) exit
             lengths(line_num) = lengths(line_num) + 1
           end do