program ch05_js1
implicit none
integer,parameter :: &
                  long=selected_real_kind(15,307)
real::as,bs=2.0,rs=0.123456789012345
real(long)::al,bl=2.0_long,rl=0.123456789012345_long

   as=bs*rs
   al=bl*rl
   write(6,fmt='(1x,"as= ",e22.15)')as
   write(6,fmt='(1x,"al= ",e22.15)')al
end program ch05_js1