diff --git a/examples/example_hl.f90 b/examples/example_hl.f90
index c0b46fd9e3db6a16840fb7dce1f93e783744affa..6745a2debc9a8a47f45d29d1315c3329a47ea9f2 100644
--- a/examples/example_hl.f90
+++ b/examples/example_hl.f90
@@ -1,32 +1,9 @@
-MODULE mo_example
-
-  IMPLICIT NONE
-
-CONTAINS
-
-  INTEGER FUNCTION division(number1, number2, ifail)
-    INTEGER,       INTENT(IN)    :: number1, number2
-    TYPE(t_error), INTENT(INOUT) :: ifail
-
-    division = 0
-    IF (number2 == 0) THEN
-      CALL create_error(ifail, t_arithmetic_error("Division by zero!"))
-    ELSE IF ((number1 < 0) .OR. (number2 < 0)) THEN
-      CALL create_error(ifail, t_invalid_input_error("Only positive numbers allowed!"))
-    ELSE
-      division = number1 / number2
-    END IF
-  END FUNCTION division
-END MODULE mo_example
-
-
 
 PROGRAM example
 
-  USE mo_example
-
   USE mtime,          ONLY: setCalendar, PROLEPTIC_GREGORIAN  
-  USE mtime_hl,       ONLY: t_datetime, t_timedelta, min, max
+  USE mtime_hl,       ONLY: t_datetime, t_timedelta, min, max, &
+          &                 t_timedeltaFromMilliseconds
   
   IMPLICIT NONE
   
@@ -34,8 +11,6 @@ PROGRAM example
   TYPE(t_timedelta) :: td
 
   INTEGER       :: test_number1, test_number2, test_result
-  TYPE(t_error) :: ifail
-
 
   WRITE (0,*) "example_hl : test example"
 
@@ -92,7 +67,7 @@ PROGRAM example
   WRITE (0,*) "MAX(", dt2%to_string(), ", ", dt3%to_string(), "): ", dt4%to_string()
 
   ! interval assignment with milliseconds
-  td = t_timedelta(360000)
+  td = t_timedeltaFromMilliseconds(360000)
   WRITE (0,*) "interval assignment with milliseconds: ", td%to_string()
   
 END PROGRAM example