diff --git a/Sonderuebung/WiSe24-25/SU02_2024_10_29_Datentypen/02_huge_test.f95 b/Sonderuebung/WiSe24-25/SU02_2024_10_29_Datentypen/02_huge_test.f95 new file mode 100644 index 0000000000000000000000000000000000000000..43c0aeb159a2639b5d767b40c95b8bfd1e0cb021 --- /dev/null +++ b/Sonderuebung/WiSe24-25/SU02_2024_10_29_Datentypen/02_huge_test.f95 @@ -0,0 +1,14 @@ +program huge_test + implicit none + + INTEGER :: n + REAL :: r + + n = HUGE(n) + r = HUGE(r) + + WRITE(*,*) "Die HUGE-Funktion gibt folgendes zurück:" + WRITE(*,*) n, "(Integer)" ! Ausgabe : 2147483647 + WRITE(*,*) r, "(Real)" ! Ausgabe : 3.40282347E+38 + +end program huge_test \ No newline at end of file