RosettaCodeData/Task/Repeat-a-string/Fortran/repeat-a-string.f

6 lines
82 B
Fortran

program test_repeat
write (*, '(a)') repeat ('ha', 5)
end program test_repeat