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

6 lines
82 B
FortranFixed
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
program test_repeat
write (*, '(a)') repeat ('ha', 5)
end program test_repeat