C Collection of code snippets by Arne Vajhøj 
C (from articles on eksperten.dk / vajhoej.dk written sometime between 2004 and now) 
      PROGRAM DOFUN
      INTEGER*4 I
      REAL*4 DO100I
      DO100I = 1.10
      WRITE(*,*) I
100   CONTINUE
      END