1 files changed, 1 insertions, 0 deletions
diff --git a/src/main.F90 b/src/main.F90
index be9dd58..cb0f97b 100644
--- a/src/main.F90
+++ b/src/main.F90
@@ -19,6 +19,7 @@ PROGRAM mul
            time = measure_16(dim)
         CASE default
            write (*, *) "wrong kind for real: ", realtype
+           STOP
 
      END SELECT