เขียนค่าจำนวนเต็มในชื่อภาษาฟอร์แทรน language 90

เขียนค่าจำนวนเต็มในชื่อภาษาฟอร์แทรน language 90

program foo
    character(len=1024) :: filename

    write (filename, "(A5,I2)") "hello", 10

    print *, trim(filename)
end program