Запишите целое значение в имя fortran 90

запишите целое значение в имя fortran 90

program foo
    character(len=1024) :: filename

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

    print *, trim(filename)
end program