delorie.com/archives/browse.cgi   search  
Mail Archives: djgpp/2001/02/28/22:48:14

From: "Mr. Veli Suorsa" <VJSuorsa AT Surfeu DOT Fi>
Sender: vjsuorsa AT Surfeu DOT Fi
To: Djgpp AT delorie DOT com
Cc: VJSuorsa AT Surfeu DOT Fi
Date: Thu, 1 Mar 2001 05:44:17 +0200
Subject: Fortran / C compiler precision and code pack
X-Mailer: CWMail Web to Mail Gateway 2.6k, http://netwinsite.com/top_mail.htm
Message-id: <3a9dc591.6468.0@surfeu.fi>
X-User-Info: 193.167.106.194
MIME-Version: 1.0
X-MIME-Autoconverted: from quoted-printable to 8bit by delorie.com id WAA11695
Reply-To: djgpp AT delorie DOT com

HI!

I test Gnu Fortran compiler, g77 (g772952b : gcc-2.95.2) with a little program
like this:

---
      PROGRAM PAY
C
C  A program to calculate the nett pay of a British worker
C  (pay3_4.for)
C
      REAL GROSS, SUPER, TAXABL, TAX, NETTPAY
C  Read gross pay
      PRINT *, 'Type gross pay before deductions :'
      READ *, GROSS
C  Superannuation is 6 % of gross pay
      SUPER = 0.06 * GROSS
C  Tax is 25 % of pay, excluding superannuation contributions
      TAXABL = GROSS - SUPER
      TAX    = 0.25 * TAXABL
C  Fixed weekly deductions of 14.40
      NETTPAY = TAXABL - TAX - 14.4
C  Print details
      PRINT *, 'Gross pay      : ', GROSS
      PRINT *, 'Superannuation : ', SUPER
      PRINT *, 'Tax            : ', TAX
      PRINT *, 'Insurance      : ', 14.4
      PRINT *, ' '
      PRINT *, 'Nett pay       : ', NETTPAY
      STOP
      END
---

Compiler seems to work correctly, but...

When you give 1600 
to gross pay, print is:

 Gross pay      : 1600
 Superannuation : 96.
 Tax            : 376.
 Insurance      : 14.3999996
 
 Nett pay       : 1113.59998

Did I everything right, because insurance (real) was different from 14.4?

Or is there a bug in Fortran / C compiler precision.


Another thing, that bothers me is size of exe- code (about 150 KB and when pkzipped
about 50 KB). Is there any way or switch to pack/ optimise code?


P.S. Does Gnu Pascal compiler exist and is there any user online for a little
sort test?

Thanks in advance!

Veli Suorsa
---
Oulu, FINLAND
Mailto:VJSuorsa AT Surfeu DOT Fi
http://members.surfeu.fi/veli.suorsa/
http://www.surfeu.fi

- Raw text -


  webmaster     delorie software   privacy  
  Copyright 2019   by DJ Delorie     Updated Jul 2019