Scrivi il valore intero nel nome fortran 90

scrivi il valore intero nel nome fortran 90

program foo
    character(len=1024) :: filename

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

    print *, trim(filename)
end program