<Example Program>

Program repeat_example
  Character(*),Parameter :: a = 'abc.'
  Integer :: i
  Do i=0,5
    Print *, i, Repeat(a,i)
  End Do
End Program

Execution Results

 0 
 1 abc.
 2 abc.abc.
 3 abc.abc.abc.
 4 abc.abc.abc.abc.
 5 abc.abc.abc.abc.abc.