エラーの解決方法を教えてください

Question

end module subroutines_functions
上の行の文に以下のようなエラーメッセージがでました。
このエラーの意味と解決方法を教えてください
Error: The END statement for a CONTAINed procedure is missing
Error: END statement confusion

Comments

[tetsunosuke]

コードを全部はっていただかないとわからなさそうな気がします

ENDの閉じがおかしいようなメッセージですが

Answer 1

関数やサブルーチンは

function XYZ(a, b, c, ...)
  ...
end function XYZ

subroutine ABC(x, y, z, ...)
  ...
end subroutine ABC

という形になっている必要があります。

質問にあるエラーは、containsからend module subroutines_functionsまでの間で定義している関数もしくはサブルーチンの中で、end function文、もしくはend subroutine文がないものがあるという意味のエラーです。end function文、もしくはend subroutine文で閉じていない関数／サブルーチンを見つけてend function文／end subroutine文を追加するとエラーは解消すると思います。

Comments

[t.ewjspo]

ありがとうございました。解決できました。