Conference turris::fortran

1284.0. "real*16 function causing run-time errors" by TLE::LUCIA (http://asaab.zko.dec.com/~lucia/biography.html) Tue May 06 1997 15:03

Can anyone shed some light on 

1. Why the unaligned access?
2. Is there a bug in the RTL?

I'm revisiting the list of debugger "to dos" for Fortran for the post-steel
release.

Thanks,
Tim


/local/lucia/scratch> uname -a
OSF1 savvy.zko.dec.com V3.2 148 alpha
/local/lucia/scratch> cat chf.f    
      character*20 function chf(i,j)
      implicit none
      integer*4 i, j

      chf = 'Hello, World!'
      return
      end

      real*16 function realfun(a,b)
      implicit none
      real*4 a,b
      real*4 a1,b1

      a1 = b
      b1 = a
      realfun = (a * b) / (a1 * b1)
      return
      end

      program joe
      print *, chf(1,2)
      print *, realfun(1.2, 2.3)
      end
/local/lucia/scratch> f77 -g chf.f                                          
/local/lucia/scratch> a.out
  9.9999994E-02
Unaligned access pid=2578 <a.out> va=140000194 pc=120001964 ra=120001958 type=stq
Unaligned access pid=2578 <a.out> va=14000019c pc=120001968 ra=120001958 type=stq
forrtl: severe (8): internal consistency check failure, file for_desc_item.c,
line 535
/local/lucia/scratch> /usr/sbin/setld -i | grep -i instal | grep ortran 
DFABASE410      installed       Digital Fortran 77 V4.1 for Digital UNIX Alpha
Systems
DFACOM410       installed       Digital Fortran V4.1 Tools & their Man Pages
DFARTL374       installed       Digital Fortran RTL #374 for Digital UNIX Alpha
(f90 and f77)
F9ABASE410      installed       Digital Fortran 90 V4.1 for Digital UNIX Systems
PSESHPF107      installed       High Performance Fortran Scalar Libraries

You never declared the types of "chf" or "realfun" inside "joe".  Add these
lines:

      program joe
>>      character*20 chf
>>      real*16 realfun
      print *, chf(1,2)
      print *, realfun(1.2, 2.3)
      end

Thanks, Bill.  I thought (obviously incorrectly) it applied per file...  I also
thought this example worked at one time.