DO 1 I = 1,5
    1 WRITE (6,*) ("*", J = 1,I)
      END