Upload New File

Sonderuebung/WiSe24-25/SU02_2024_10_29_Datentypen/02_huge_test.f95

+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