Solution

 PROGRAM throw_dice
  IMPLICIT NONE
  INTEGER :: throw, r
   CALL RANDOM_NUMBER(r)
      ! r is returned 0 <= r <= 1
      ! NINT(r*5) gives an integer between 0 and 5
   throw = 1 + NINT(r*5)
   PRINT*, 'die throw = ', throw
 END PROGRAM