bash：无法执行二进制文件 exec 格式错误 fortran

Question

当我运行下面给出的代码时，它总是给我以下错误：

bash: cannot execute binary file exec format error fortran

此外，文件“file”并未在代码中提到的位置创建。我有一个 64 位处理器和 64 位版本的 Ubuntu 16.04，所以这似乎不是问题。谁能指出我错在哪里？

program sandpile_model
 implicit none

integer, parameter :: len = 20
integer, dimension(len,len) :: square
!real, dimension(len,len) :: blah
!open(unit=1,file="\\home\\sandpile\\fortran\\file")

!dummy variables
integer :: i,j,d

do i=1,len
   do j=1,len
      square(i,j)=2
   end do
end do


do d=1,10000
   square((len/2)-1,(len/2)-1)=square((len/2)-1,(len/2)-1)+1
   if(square((len/2)-1,(len/2)-1)>3) then
      call toppling((len/2)-1,(len/2)-1)
   end if
end do

!open(unit=1,file="\\home\\sandpile\\fortran\\file")
 do i=1,len
   do j=1,len
      write(1,*), i,'\t',j,'\t',square(i,j)
   end do
   print*, '\n' 
end do

end program sandpile_model





!This subroutine specifies the evolution rules of the model
recursive subroutine toppling(x,y) 
 !implicit none

integer, parameter :: len = 20
integer, dimension(len,len) :: square
!real, dimension(len,len) :: blah
integer, intent(in) :: x,y


square(x,y)=square(x,y)-4
square(x+1,y)=square(x+1,y)+1
if(square(x+1,y)>3) then
   call toppling(x+1,y)
end if
square(x-1,y)=square(x-1,y)+1
if(square(x-1,y)>3) then
   call toppling(x-1,y)
end if
square(x,y+1)=square(x,y+1)+1
if(square(x,y+1)>3) then
   call toppling(x,y+1)
end if
square(x,y-1)=square(x,y-1)+1
if(square(x,y-1)>3) then
   call toppling(x,y-1)
end if

end subroutine toppling

Answer 1

这里出现的问题是尝试运行目标文件而不是可执行文件。

非常小/有限的说明：

• 创建目标文件：gfortran -c <fortran file>
• 创建可执行文件：gfortran <fortran file>

当使用多个源文件时：

• 从单个文件创建对象并通过gfortran <object files> 将它们链接在一起
• 直接从源文件创建可执行文件gfortran <fortran files>

注意：

• 文件的顺序可能很重要
• 可能还需要将库链接到可执行文件（`-l 选项）
• 可以通过-ooption 指定输出文件的名称

进一步初步阅读：

• 编译器文档
• man gfortran
• man make 用于更复杂情况下的自动化。