[求助] 为什么运行不起来呢

program Console1
    character(20)::string
    string="Good morning."
    write(*,*)len(string)
    write(*,*)len_trim(string)
    end