DATA
!Name of the program: DATA
!Examples of data
Implicit
none
!maximum
integer value
Integer
:: A
Integer
(kind=2) :: B !it uses two bytes
Integer
(kind=4) :: C !it uses four bytes
Integer
(kind=8) :: D !it uses eight
bytes
print
*, huge(A), kind(A) !it shows
2147483647
print
*, huge(B), kind (B) !it shows
32767 2
Print
*, huge(C) !it shows
2147483647 4
Print
*, huge(D), kind (D)
!it shows 9223372036854775807 8
stop
Comentários
Postar um comentário