RosettaCodeData/Task/Repeat-a-string/Fortran/repeat-a-string.f
2023-07-01 13:44:08 -04:00

5 lines
82 B
Fortran

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