diff --git a/examples/example_hl.f90 b/examples/example_hl.f90 index 4d2b41cfa4379b63148b9d8c5fab720ca393dff5..b335d55e969d73f690fbdd33d79436c786215cf1 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