Fortran 77 抱怨常见块答案

【问题标题】：Fortran 77 complains about common blocksFortran 77 抱怨常见块
【发布时间】：2013-11-22 13:36:46
【问题描述】：

我在 FreeBSD 9.2 上使用 gfortran 4.8.2 创建一些可执行文件。有三个文件，一个 C 文件和两个 Fortran 77 文件，其中我使用两个例程和一个公共块。

问题是我从 gfortran 编译器收到多个定义的错误。

我发送到服务器的请求：

autoreconf
./configure
make

di8810.c

#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>

void main(argc,argv)

int argc;
char *argv[];
{
  if (argc != 4)
    {
          exit(99);
    }
         gds100(argv[1],argv[2],argv[3]);
}

gds100.f

SUBROUTINE GDS100(AUSGABE,FORMAT,FILENAME)
CHARACTER*4097 EBUF   
CHARACTER*264 BUFFER      
CHARACTER*1 CBUFFER(264)      
CHARACTER*1 CEBUF(4097)      
CHARACTER*1 FORMAT


INTEGER*2 INULL      
CHARACTER*1 LTEXT(112)      
COMMON /GDSCB2/ EBUF      
EQUIVALENCE (EBUF,CEBUF(1))      
EQUIVALENCE (CEBUF(4097),INULL)     
DATA INULL /0/     
...
END

gds102.f

SUBROUTINE GDS102

CHARACTER*264 BUFFER      
CHARACTER*1 CBUFFER(264)     
CHARACTER*4097 EBUF      
CHARACTER*1 CEBUF(4097)      
INTEGER*2 INULL      
INTEGER POIADR    
COMMON /GDSCB2/ EBUF     
EQUIVALENCE (BUFFER,CBUFFER(1))      
EQUIVALENCE (EBUF,CEBUF(1))      
EQUIVALENCE (CEBUF(4097),INULL)      
DATA IWOGRZ /4096/      
DATA INULL /0/      
ENTRY GDSUMS(N)
...
END

错误是：

make  all-am
gcc -DHAVE_CONFIG_H -I.    -DDI88xx -g -O2 -MT src/di8810-di8810.o -MD -MP -MF src/.deps/di8810-di8810.Tpo -c -o src/di8810-di8810.o `test -f 'src/di8810.c' || echo './'`src/di8810.c
mv -f src/.deps/di8810-di8810.Tpo src/.deps/di8810-di8810.Po
gfortran -cpp  -fcheck=all -fno-underscoring  -DDI88xx -g -O2 -c -o src/di8810-gds100.o `test -f 'src/gds100.f' || echo './'`src/gds100.f
gfortran -cpp  -fcheck=all -fno-underscoring  -DDI88xx -g -O2 -c -o src/di8810-gds102.o `test -f 'src/gds102.f' || echo './'`src/gds102.f
gfortran -cpp  -fcheck=all -fno-underscoring  -DDI88xx -g -O2    -o di8810 src/di8810-di8810.o  src/di8810-gds100.o src/di8810-gds102.o
src/di8810-gds102.o: In function `gds102':
/.amd_mnt/blnn728x/home/sayik_bo/di8810_t/src/gds102.f:2: multiple definition of `gdscb2'
src/di8810-gds100.o:/.amd_mnt/blnn728x/home/sayik_bo/di8810_t/src/gds100.f:1: first defined here
collect2: Fehler: ld gab 1 als Ende-Status zurück
*** [di8810] Error code 1

Stop in /.amd_mnt/blnn728x/home/sayik_bo/di8810_t.
*** [all] Error code 1

Stop in /.amd_mnt/blnn728x/home/sayik_bo/di8810_t.

Stop in /.amd_mnt/blnn728x/home/sayik_bo/di8810_t.
*** [all] Error code 1

Stop in /.amd_mnt/blnn728x/home/sayik_bo/di8810_t.

这让我发疯了。有什么想法吗？

【问题讨论】：

你还有一个叫gdscb2的函数吗？
不，只有公共块中的名称。
您能否将其缩减为最少的代码以重现该问题。将 2 字节整数等效于 char 数组中的最后一个位置似乎很奇怪。然后在每个例程中分别初始化相同的位置，也很奇怪。
@george，我会在星期一试试这个并报告。该代码实际上可以在 HP-UX 和 HP Fortran 编译器上运行，但我们正试图在中期迁移到标准平台（FreeBSD、Linux）。
@george，请改写为关于“然后你在每个例程中分别初始化同一个位置，也很奇怪。”的答案。我删除了gds102.f 中的DATA INULL /0/，并且能够编译和链接。不过，我的代码还有另一个问题。

标签： gcc compiler-errors fortran gfortran fortran-common-block

【解决方案1】：

详细说明我的评论

common 语句使编译器为GDSCB2 分配全局存储。

符号CEBUF,INULL 是Equivalence 本质上指向全局存储的指针。

现在两个data inull/0/ 语句冗余初始化相同全局内存中的位置。我不知道这是否有问题..只是看看。

我看到的另一件事是 inull 是 2 个字节（可能......或者可能更多，但肯定不是 1）但它等同于全局字符数组的最后一个字节。即初始化写入超出分配空间的数据。

如果可能的话，我会一起摆脱共同点。在调用程序中分配存储并将其作为参数传递给子程序。

在任何情况下，只需执行CEBUF(4097)=char(0)，而不是像那样使用 inull。

【讨论】：