RosettaCodeData/Task/Repeat-a-string/Fortran/repeat-a-string.f
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

5 lines
82 B
Fortran

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