diff --git a/src/julienne/julienne_file_s.f90 b/src/julienne/julienne_file_s.f90
index 872bbe3f..b3f29dcd 100644
--- 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