DECؤΰܿΥ : agcm5

97/07/26  Ƿ

ʲ굡¸ʬ Sun ƱĤǤ褤

* Check autodouble compile   97/05/13

   realڤñ٤ˤʤ롣real*4٤ˤʤʤ
         double precision 4٤ˤˤ -r16 ɬס
         -r16 ñټ¿4٤ˤ뤷-r8Ȥ¾Ū

  ƥơ
      real a
      real*4 b
      double precision c
      real*8 d
      a=1./3
      b=1./3
      c=1./3
      d=1./3

  ץȤȡ

  maloja% f90 autodbl.F && a.out
   real   ->   0.3333333    
   real*4 ->   0.3333333    
   double ->   0.333333343267441     
   real*8 ->   0.333333343267441     
  maloja% f90 -r8 autodbl.F && a.out
   real   ->   0.333333333333333     
   real*4 ->   0.3333333    
   double ->   0.333333333333333     
   real*8 ->   0.333333333333333     
  maloja% f90 -r16 autodbl.F && a.out
   real   ->   0.333333333333333333333333333333333      
   real*4 ->   0.3333333    
   double ->   0.333333333333333333333333333333333      
   real*8 ->   0.333333333333333     
  maloja% f90 -r8 -r16 autodbl.F && a.out
   real   ->   0.333333333333333333333333333333333      
   real*4 ->   0.3333333    
   double ->   0.333333333333333333333333333333333      
   real*8 ->   0.333333333333333     
  maloja% f90 -r16 -r8 autodbl.F && a.out
   real   ->   0.333333333333333     
   real*4 ->   0.3333333    
   double ->   0.333333333333333     
   real*8 ->   0.333333333333333     
  

* system¸롼 sysdep/y*.F ˤĤ -- Sun Ȥ

     %  %  SunѤΤΤ򤽤Τޤ޻Ȥɤ

  ERRTRA

    getpid,kill,signum -- OK (see signum(4))

  YCLOCK

    -r8λͤ --- SunƱ

    etime -- SunƱ

  ¾Υ֥롼

    ʤ
