This is the mail archive of the
gcc-help@gcc.gnu.org
mailing list for the GCC project.
Re: Ancient Fortran, help please
- From: Benjamin Joseph <benjo at u dot washington dot edu>
- To: Bud Davis <bdavis9659 at comcast dot net>
- Cc: gcc-help at gcc dot gnu dot org
- Date: Sat, 18 Dec 2004 11:22:11 -0800 (PST)
- Subject: Re: Ancient Fortran, help please
- References: <1103363644.15167.6.camel@localhost.localdomain>
Ooops. Yeah that might help.
Here's a complete picture of this section of code:
-----------beginning of file-----------------
BLOCK DATA BNCSRC
IMPLICIT REAL*8 (A-H,O-Z)
INTEGER*2 ITABL, ITABL1, ITABL2
LOGICAL*1 OTABL
COMMON /BIAS/ TYPE(25), ITABL(5,25), OTABL(5,20)
DIMENSION ITABL1(5,14), ITABL2(5,11)
EQUIVALENCE ( ITABL(1,1), ITABL1(1,1)) ,
* ( ITABL(1,15), ITABL2(1,1))
DATA TYPE /'VHF ','MINITRCK','C-BAND ','S-BAND ',
1 'USB30 ','USB85 ','VLFS ','ATS ',
2 'ATS GRDD','NDS ','SRE ','LASER ',
3 'OPTICAL ','X-Y MMMM',' ',' ',
4 ' ',' ',' ',' ',
5 'PCE ','LANDMARK','OABIAS ','LANDMRK2',
6 'HAP ' /
some more stuff involving ITABL,ITABL1,ITABLE2...
-------------EOF---------------------------------
Here is the output of g77 --version
GNU Fortran (GCC) 3.4.2 20041017 (Red Hat 3.4.2-6.fc3)
Copyright (C) 2004 Free Software Foundation, Inc.
---------------------------------------------
It looks like it's just defining a variable TYPE with a character array.
Anyway, as far as compilability is concerned, this works for Intel Fortran
Compiler 8.1.
Thanks for your patience.
-Ben
On Sat, 18 Dec 2004, Bud Davis wrote:
H Ben,
On first glance you have a mismatch between the type of a variable and
the data you are trying to initialize.
But, in most cases, we here at gcc-help give erroneous advice when all
we see is a code fragment. If you could make us a small, "should be
compilable" fragment showing both the declaration and the
data statement, maybe we can help out.
Here is an example that I think shows your problem, but it works !!
$ cat data.f
INTEGER T
DATA T /'VHF '/
PRINT*,T
END
$ g77 data.f
$ ./a.out
541476950
also the output of "g77 --version" can be useful.
--bud