[PATCH] Fix the -d8 options in gfortran

[Steve Kargl <sgk at troutmask dot apl dot washington dot edu>]

The attached patch appears to fix the -d8 option for gfortran.

troutmask:sgk[345] cat kl.f90
program kl
   integer i
   real x
   i = 42
   x = 8.e0
   print *, i
   print *, x
end program kl
troutmask:sgk[346] gfc41 -static -o kl kl.f90
troutmask:sgk[347] ./kl
          42
   8.000000    
troutmask:sgk[348] gfc41 -static -o kl -d8 kl.f90
troutmask:sgk[349] ./kl
                   42
   8.00000000000000     
troutmask:sgk[350] gfc41 -static -o kl -d8 -fdump-parse-tree kl.f90

    Namespace: A-H: (REAL 8) I-N: (INTEGER 8) O-Z: (REAL 8)
    symtree: i  Ambig 0
    symbol i (INTEGER 8)(VARIABLE UNKNOWN-INTENT UNKNOWN-ACCESS UNKNOWN-PROC)

    symtree: kl  Ambig 0
    symbol kl (UNKNOWN 0)(PROGRAM UNKNOWN-INTENT UNKNOWN-ACCESS UNKNOWN-PROC)

    symtree: x  Ambig 0
    symbol x (REAL 8)(VARIABLE UNKNOWN-INTENT UNKNOWN-ACCESS UNKNOWN-PROC)

    ASSIGN i 42
    ASSIGN x 8.00000000000000
    WRITE UNIT=6 FMT=-1
    TRANSFER i
    DT_END
    WRITE UNIT=6 FMT=-1
    TRANSFER x
    DT_END


Bubblestrapped and regression tested on amd64-*-freebsd.
This probably falls under the trivially correct, but I'll
ask anyway.  Ok main line and 4.0?

2005-03-08  Steven G. Kargl  <kargls@comcast.net>

	* gfortran.h (gfc_option_t): Remove unused variable d8.
	* options.c (gfc_init_options): Remove uses of gfc_option.d8.
    (gfc_handle_option): Ditto; use gfc_option.r8 and gfc_option.i8.

-- 
Steve

Attachment: d8.diff
Description: Text document