From c85ff75650683cb6f80d307a5044290f19db7e79 Mon Sep 17 00:00:00 2001
From: jfe <git@jfengels.de>
Date: Tue, 18 Dec 2018 10:31:05 +0100
Subject: [PATCH] Nuke it from Orbit, it's the only way to be sure.

---
 examples/example_hl.f90 | 22 ----------------------
 1 file changed, 22 deletions(-)

diff --git a/examples/example_hl.f90 b/examples/example_hl.f90
index 4d2b41cf..b335d55e 100644
--- a/examples/example_hl.f90
+++ b/examples/example_hl.f90
@@ -1,6 +1,5 @@
 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
-- 
GitLab