program ex0306
          integer :: A
          A = 100
          write(*, 100) A
100    format( I4 )
          stop
          end program ex0306