Écrire une valeur entière dans le nom fortran 90

écrire une valeur entière dans le nom fortran 90

program foo
    character(len=1024) :: filename

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

    print *, trim(filename)
end program