fortran学习中遇到的问题

找不到fortran代码中存在的问题

    implicit none
    integer :: i
    character(len = 20) ::str1
    character(len = 20) ::str1a
    character(len = 20) ::str2
    character(len = 20) ::str2a
    write(*,*)"enter the first string to compare:"
    read(*,*)str1
    write(*,*)"enter the second string to compare:"
    read(*,*)str2
    str1a = str1
    str2a = str2
    do i = 1,len(str1a)
        if(str1a(i:i) >= 'a '.and. str1a(i:i) <= 'z')then
            str1a(i:i) = achar(iachar(str1a(i:i)) - 32)
        end if
    end do
    do i = 1,len(str2a)
        if(str2a(i:i) >= 'a '.and. str2a(i:i) <= 'z')then
            str2a(i:i) = achar(iachar(str2a(i:i)) - 32)
        end if
    end do
    if(str1a == str2a)then
        write(*,*)"'",str1,"'"," = ",str2,"ignoring case."
    else
        write(*,*)"'",str1,"'","/ = ",str2,"ignoring case."
    end if
    end

• 这个问题的回答你可以参考下: https://ask.csdn.net/questions/649865
• 我还给你找了一篇非常好的博客，你可以看看是否有帮助，链接：6. fortran之数组
• 除此之外, 这篇博客: 【Fortran】初级数组（一维数组）中的 Fortran中的一维数组 部分也许能够解决你的问题, 你可以仔细阅读以下内容或跳转源博客中阅读:
  

• 数组是一组类型完全相同、且用单个名字来引用的变量或常量。

代码没问题。