Bugfix: rocm/flang compiler doesn't like some case statements try 3

andrew-platt · Jan 28, 2025 · 1611d27 · 1611d27
1 parent 9b813ed
commit 1611d27
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/modules/nwtc-library/src/NWTC_IO.f90 b/modules/nwtc-library/src/NWTC_IO.f90
@@ -2151,7 +2151,7 @@ SUBROUTINE GetWords ( Line, Words, NumWords, NumFound, IgnoreQuotes )
       end if
 
       ! Add character to word
-      Words(iWord)(iChar:iChar) = Char
+      Words(iWord)(iChar:iChar) = Line(i:i)
 
    end do