【发布时间】:2011-04-18 01:16:27
【问题描述】:
我在 Fortran 95 上有一个非常可怕的错误:
Fatal Error: While reading module 'list5.mod' found module version 0, expected 6
我已经包含了我的模块的主要结构。我非常怀疑它与我模块中的内容有什么关系,因为它给了我关于这些的错误消息并且我已经能够修复它们,这意味着它能够很好地通过我的模块它只是一些与我使用模块的方式。也许?
MODULE list5
IMPLICIT NONE
CONTAINS
----
END MODULE
主程序的结构如下:
PROGRAM mainlist
USE list5
IMPLICIT NONE
!Variable Declaration
INTEGER:: opt
INTEGER, PARAMETER:: maxitems=50
INTEGER:: size=0
CHARACTER(20):: itemarray(50)
INTEGER:: quantityarray(50)
INTEGER:: totalquantity, i=0
REAL:: totalprice=0, pricearray(50)=0
CHARACTER(20), DIMENSION(:)::Item
CHARACTER(20):: ItemSought
LOGICAL:: Found
INTEGER:: Location
INTEGER:: NumItems=0, SmallestItem=0
!Select statement for the menu
DO
opt=choices()
SELECT CASE (opt)
CASE(1)
size=size+1
CALL getItemData(itemarray,pricearray,quantityarray)
CASE(2)
CALL getFileItems(size,itemarray,pricearray,quantityarray)
CASE(3)
CALL pickItemRandomly (size)
CASE(4)
CALL calcListTotals
(pricearray,quantityarray,totalprice,totalquantity)
CALL printList(size,itemarray,pricearray,quantityarray,totalprice, totalquantity)
CASE(5)
CALL sortByItem(itemarray, pricearray, quantityarray)
CASE(6)
CALL sortByPrice(itemarray, pricearray, quantityarray)
CASE(7)
CALL writeListtoFile(size,itemarray, pricearray, quantityarray)
CASE(8)
CALL search(itemarray, ItemSought, Found, Location)
CASE(9)
STOP
END SELECT
END DO
END PROGRAM
有什么建议吗??我真的需要解决这个问题,所以任何帮助都将不胜感激。非常感谢!!
【问题讨论】:
-
我自然无法从给定的数据中重现它,但是从我的谷歌搜索来看,似乎在使用不同版本的编译器时会发生此错误(顺便说一句,您使用的是什么编译器,g95?)。一些可能具有一定相关性的链接。 forum.wrfforum.com/viewtopic.php?f=20&t=1205docstoc.com/docs/37887247/Athena-Knowledge-Base
-
可能需要在第二个文档中向下滚动一点。
-
@Rook 是的,我正在使用 g95
-
@EuropaDust - 好吧,把它放到一些粘贴网站 (gist.github.com) - 但先试试 Jonathan 的建议。
-
@EuropaDust - 您需要提供放置位置的链接。例如,我写了一些文字,点击“创建公共要点”,然后我得到了一个链接:gist.github.com/925181 另外,不是针对这个,而是针对您发布的其他一些问题;始终放入编译器并复制粘贴您遇到的错误将是一个好主意(默认情况下)。如果没有其他原因,但为了避免让人们有理由发布诸如“你使用什么编译器”之类的问题......