init

Author: scivision

bitpat.f90

@@ -11,6 +11,8 @@ program bitpat
 integer, parameter :: J(*) = [  2**29      ,  2**22    , 2**15   , 2**8 , 2**1 ]
 
 
+integer(int64), parameter :: hexa(*) = [z'80000000']
+
 integer(int64),parameter :: K = int(O"201004020100",int64)
 !2**34+2**27+2**20+2**13+2**6
 
@@ -28,4 +30,7 @@ program bitpat
 if (.not.k1==20583) error stop 'bit pattern mismatch'
 if (.not.k==17315143744_int64) error stop 'bit pattern mismatch'
 
+print *,'--------------'
+print *,hexa
+
 end program

special_characters.f90

@@ -0,0 +1,20 @@
+program special_char
+! This program shows a few special ASCII characters in Fortran.
+! https://en.wikipedia.org/wiki/ASCII#Character_groups
+
+use, intrinsic:: iso_fortran_env, only: stdout=>error_unit
+character, parameter :: &
+nul = char(0), &
+etx = char(3), &
+tab = char(9)
+
+print *, 'null'
+write(stdout,'(A1)') nul
+
+print *, 'etx'
+write(stdout,'(A1)')  etx
+
+print *, 'tab'
+write(stdout,'(A1)') tab
+
+end program