3

Fortran95で非常に恐ろしいエラーが発生しました。

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

何か提案はありますか？私は本当にこれを解決する必要があるので、どんな助けもいただければ幸いです。本当にありがとう！！

4

1 に答える 1

6

Rookが言うように、問題はコンパイラのバージョンにあります。どういうわけか、list5を最初にコンパイルしたときの.modファイルは、古いコンパイラによって生成されました。すべての.oファイルと.modファイルをクリアして、再試行します。最初にlist5.f90（またはモジュールlist5を含むファイル）をコンパイルしてから、メインプログラムをコンパイルします。

于 2011-04-18T02:16:02.817 に答える