如何在Fortran中设置小代码复活节彩蛋-随机选择错误消息的引号

character(100), dimension(5) :: error_messages
error_messages = [ "Error 1", "Error 2", "Error 3", "Error 4", "Error 5" ]

integer :: random_index
call random_number(random_index)
random_index = 1 + int(random_index * 5)  ! 生成1到5之间的随机整数

print *, "随机错误消息: ", error_messages(random_index)

program EasterEgg
    implicit none
    character(100), dimension(5) :: error_messages
    integer :: random_index

    error_messages = [ "Error 1", "Error 2", "Error 3", "Error 4", "Error 5" ]

    call random_number(random_index)
    random_index = 1 + int(random_index * 5)

    print *, "随机错误消息: ", error_messages(random_index)

end program EasterEgg