Merge pull request #2619 from andrew-platt/b/rocm-flang-2

Flang doesn't compile NWTC_IO.f90

Author: andrew-platt

modules/nwtc-library/src/NWTC_IO.f90

@@ -2074,7 +2074,6 @@ SUBROUTINE GetWords ( Line, Words, NumWords, NumFound, IgnoreQuotes )
    INTEGER                        :: iWord                                        ! Word index.
    INTEGER                        :: i                                            ! Character index in line.
    INTEGER                        :: iChar                                        ! Character index in word.
-   CHARACTER(len=1)               :: Char                                         ! Current character
    LOGICAL                        :: InQuotes                                     ! Flag indicating text is within quotes
    LOGICAL                        :: IgnoreQuotesLoc                              ! Local flag to ignore quotes
 
@@ -2108,11 +2107,8 @@ SUBROUTINE GetWords ( Line, Words, NumWords, NumFound, IgnoreQuotes )
    ! Loop through characters in line
    do i = 1, len_trim(line)
 
-      ! Get current character
-      Char = Line(i:i)
-
       ! Select based on character
-      select case (Char)
+      select case (Line(i:i))
       case ('"', "'")               ! Double quotes, single quotes
          if (IgnoreQuotesLoc .or. InQuotes) then
             InQuotes = .false.
@@ -2152,7 +2148,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