Re: f77 on SUN vs. on HPRISC'S

khire@cae.wisc.edu (Milind Khire) writes:


> Hello Everybody:
> I have a FORTRAN code originally written for VAX-VMS, but it is
> compatible with SUN UNIX. But if I try to run it on HPRISC's it compiles
> fine but gives me completely garbage numbers in output. If anyone
> knows what are the exact differences in FORTRAN (f77) compilers or
> systems for SUN and HPRISC, I would really appreciate your advice to
> resolve this problem.


HP-UX F77 seems to be a strange mixture of Fortran 90 and Fortran 77.


Storage handling seems rather different to other f77 compilers,
IEEE-floating point will be enabled by a linker (!) switch ....
But first of all, some compiler switches regarded "useful":


Paraphrased from the manual :


  +E7 : use static storage to save addresses of arguments
              to be passed to functions and subroutines


  +K : "Forces static storage for all local variables.
This provides a convenient path for importing [!]
FORTRAN 66 and FORTRAN 77 programs ...."


  -C: bounds check !!!


  +FPVZOU: trap on ivalid fp ops, divide by zero, overflow, underflow


But, let's have a lopok at two programs, exposing strange behaviour
=====================================================================


C
This program was taken from a test lib.
c program to test bug
            fred=10.0E-12
C
C Expression in brackets should be evaluated first,
C no overflow / cutoff should occur.
C
            fred=(fred*1000000)*500000
            george=10.0E-12
            george=(george*1000000.0)*500000.0
            print *, fred,george
            end


=======================================================================
C by Prof. Spellucci
            double precision a(1000),maxa,mina
            integer i,n
            maxa=-1.0d0
            mina=2.0d0
            a(1)=0.d0
            write(*,*) 'eingabe n='
            read(*,*) n
            do i=1,n
                a(i)=dble(i-1)/n
            enddo
            do i=1,n
                maxa=max(maxa,a(i))
                mina=min(mina,a(i))
            enddo
            write(*,*) 'test:',maxa,mina,(a(i),i=1,n)
            stop
            end
C... compile: f77 -oexe +OP3 file.f
--

Return to the comp.compilers page.
Search the comp.compilers archives again.