如何修复Fortran程序中的“Expecting variable in READ statement”错误？

错误原因 #

你在第二个read语句的变量列表中直接写入了常量':'，这违反了Fortran语法规则：read语句的变量列表只能包含用于存储读取值的变量，不能放置常量字符串。编译器提示的Error: Expecting variable in READ statement正是因为这个问题。

修复方案 #

方案1：修正格式字符串（适用于固定格式输入） #

如果StudentInfo.txt中的每行是严格的姓名:学号:GPA:地址固定格式（比如学号固定为10位、GPA为F5.2格式），可以将分隔符:写入格式字符串中，变量列表只保留需要读取的变量：

program student_parser

    implicit none
    
    integer, parameter :: num_students = 4
    integer :: i, count = 0
    real :: gpa
    character(100) :: line, name, address
    integer :: student_id
    type student
        character(50) :: name
        integer :: student_id
        character(100) :: address
        real :: gpa
    end type student
    
    type(student) :: students(num_students)

    open(10, file='StudentInfo.txt', status='old')
    do i = 1, num_students
        read(10, '(A)', iostat=count) line
        ! 修正read语句：格式字符串中匹配冒号，变量列表仅保留目标变量
        read(line, '(A, ":", I10, ":", F5.2, ":", A)', iostat=count) &
            name, student_id, gpa, address
        if (count /= 0) cycle ! 跳过读取失败的行
        if (gpa > 4.0) then
            students(i)%name = trim(name)
            students(i)%student_id = student_id
            students(i)%address = trim(address)
            students(i)%gpa = gpa
            write(*, '(A, ", Address:", A)') students(i)%name, students(i)%address
        endif
    end do
    close(10)
    
end program student_parser

方案2：字符串分割处理（适用于灵活格式输入） #

如果输入行的字段长度不固定，更可靠的方法是通过字符串操作分割每行内容：

program student_parser

    implicit none
    
    integer, parameter :: num_students = 4
    integer :: i, count = 0
    real :: gpa
    character(100) :: line, name, address
    integer :: student_id, pos1, pos2, pos3
    type student
        character(50) :: name
        integer :: student_id
        character(100) :: address
        real :: gpa
    end type student
    
    type(student) :: students(num_students)

    open(10, file='StudentInfo.txt', status='old')
    do i = 1, num_students
        read(10, '(A)', iostat=count) line
        if (count /= 0) exit ! 处理读取错误或文件结束

        ! 分割字符串提取各字段
        pos1 = scan(line, ':')
        if (pos1 == 0) cycle
        name = trim(line(1:pos1-1))

        pos2 = scan(line(pos1+1:), ':') + pos1
        if (pos2 <= pos1) cycle
        read(line(pos1+1:pos2-1), *) student_id

        pos3 = scan(line(pos2+1:), ':') + pos2
        if (pos3 <= pos2) cycle
        read(line(pos2+1:pos3-1), *) gpa

        address = trim(line(pos3+1:))

        if (gpa > 4.0) then
            students(i)%name = name
            students(i)%student_id = student_id
            students(i)%address = address
            students(i)%gpa = gpa
            write(*, '(A, ", Address:", A)') students(i)%name, students(i)%address
        endif
    end do
    close(10)
    
end program student_parser

额外说明 #

• 原代码中if (gpa > 4.0)的判断可能不符合常规GPA规则（通常GPA最大值为4.0），可根据实际需求调整为gpa >= 4.0或其他阈值。
• 加入iostat的判断可以避免读取错误时程序崩溃，增强鲁棒性。

内容的提问来源于stack exchange，提问作者maryam vakil