aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorWojtek Kosior <kwojtus@protonmail.com>2019-04-25 13:06:45 +0200
committerWojtek Kosior <kwojtus@protonmail.com>2019-04-25 13:06:45 +0200
commit43d6007c3bec7ff883e9bc970a6b14e27d332280 (patch)
treee12e4faaacd8f8cffa19c68fe118863a347c0707 /src
parent7a3dc61f1205a30d09e5e6662c1eecd651c92fd5 (diff)
downloadfortran-assignment1-43d6007c3bec7ff883e9bc970a6b14e27d332280.tar.gz
fortran-assignment1-43d6007c3bec7ff883e9bc970a6b14e27d332280.zip
terminate program on wrong floating point kind specified
Diffstat (limited to 'src')
-rw-r--r--src/main.F901
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