Guest User

Untitled

a guest
Jul 16th, 2019
104
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ! orlyeh_tut.f90
  2.  
  3. FUNCTION STARS()
  4.      REAL(4) :: STARS
  5.      STARS = RAND(0)
  6. END FUNCTION STARS
  7.  
  8. FUNCTION RIGHT()
  9.      REAL(4) :: RIGHT
  10.      RIGHT = RAND(0)
  11. END FUNCTION RIGHT
  12.  
  13. PROGRAM ORLYEH_TUT
  14.      IMPLICIT none
  15.      INTEGER(8) :: millenium = 60*60*24*365*1000
  16.      REAL(4)   :: STARS, RIGHT
  17.      INTEGER(4) :: END_OF_WORLD
  18.      DO WHILE (STARS() .NE. RIGHT())
  19.          CALL SLEEP(millenium)
  20.      END DO
  21.      ASSIGN 99999 TO END_OF_WORLD
  22.      GO TO END_OF_WORLD
  23. 99999 STOP
  24. END PROGRAM
RAW Paste Data