implicit none
  
 real    :: a
 real(8) :: b

 a=3.14159265358979328
 print*,a
 b=3.14159265358979328
 print*,b
 b=3.14159265358979328_8
 print*,b

 end