Nuke it from Orbit, it's the only way to be sure.

examples/example_hl.f90

 MODULE mo_example
 
-  USE error_handling
   IMPLICIT NONE
 
 CONTAINS
@@ -90,26 +89,5 @@ PROGRAM example
   ! interval assignment with milliseconds
   td = t_timedelta(360000)
   WRITE (0,*) "interval assignment with milliseconds: ", td%to_string()
-
-  ! ------------------------------------------------------------
-  ! EXAMPLE FOR ERROR HANDLING
-  ! ------------------------------------------------------------
-
-  WRITE (0,*) "EXAMPLE FOR ERROR HANDLING"
-  test_number1 = 10
-  test_number2 = -1
-  test_result  = division(test_number1, test_number2, ifail)
-
-  SELECT TYPE(info => ifail%info)
-  TYPE is (t_arithmetic_error)
-    WRITE (0,*) "I'm too stupid!"
-    CALL ifail%report()
-  TYPE is (t_invalid_input_error)
-    WRITE (0,*) "You are too stupid!"
-    CALL ifail%report()
-  CLASS default
-    WRITE (0,*) "Everything was ok!"
-    WRITE (0,*) "result = ", test_result
-  END SELECT
   
 END PROGRAM example