Scrieți valoarea întreagă în numele fortran 90

scrieți valoarea întreagă în numele fortran 90

program foo
    character(len=1024) :: filename

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

    print *, trim(filename)
end program