PROGRAM Nest
 
        INTEGER j
        INTEGER i
        DO i=1, 100
        j = i
        END DO
 
  time = Second()
 
CONTAINS
 
REAL FUNCTION Second()
  Second = REAL(10)
END FUNCTION Second
 
 
END PROGRAM Nest