fortran90で引数のエラーが出てコンパイルが通らない

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
fortran90の初心者です。教科書に乗っているサンプルプログラム通りに作ったのですが、下記のエラーがでてコンパイルが通らなくて困っています。時間の加算をするプログラムです。
コンパイラはgfortranを使っています。

発生している問題・エラーメッセージ

コンパイルが通らない
エラーメッセージ
Type mismatch in argument ‘x’ at (1); passed TYPE(time) to TYPE(time) [-Wargument-mismatch]

該当のソースコード

fortran90

ソースコード

program ex
implicit none
type time
integer::hh,mm,ss
end type time

  type(time)::x,y,z
  x=time(1,56,48)
  y=time(2,18,25)
  call time_add(x,y,z)
  write(6,*) z%hh,':',z%mm,':',z%ss

end program ex
subroutine time_add(x,y,z)
implicit none
type time
integer::hh,mm,ss
end type time
type(time)::x,y,z
integer ::cr
z%ss=x%ss+y%ss
cr=0
if( z%ss >= 60) then
z%ss=z%ss-60
cr=1
end if
z%mm=x%mm+y%mm+cr
cr=0
if( z%mm>= 60) then
z%mm=z%mm-60
cr=1
end if
z%hh=x%hh+y%hh+cr
end subroutine time_add

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

Type mismatch in argument ‘x’ at (1); passed TYPE(time) to TYPE(time) [-Wargument-mismatch]

↑2か所で使われている「time」構造体が「同一の構造体ではない」からコンパイルエラーになっているのでしょう。

ちなみに「同一の構造体ではない」とは「同じ個所で定義されていない」という事です。
（実際の定義内容が同一かどうかは問題ではない）

ということで、moduleとかにまとめて共通化してはどうでしょう？

module mtime          ! <-- time構造体を含むmoduleを定義
  type time
    integer::hh,mm,ss
  end type time
end module

program ex

  use mtime           ! <-- time構造体を含むmodule使用を宣言
  
  implicit none

  !type time          ! <-- このブロックは不要
  !  integer::hh,mm,ss
  !end type time 

  type(time)::x,y,z

subroutine time_add(x,y,z)

  use mtime           ! <-- time構造体を含むmodule使用を宣言
  
  implicit none

  !type time          ! <-- このブロックは不要
  !  integer::hh,mm,ss
  !end type time 

  type(time)::x,y,z

以下、コメント(2018/06/07 14:21)に対する返信。

そのようにやってみたのですが、同じエラーが出てきてしまいました。

以下、コメントに記載のソースコードを整形しました。

program ex

	implicit none

	type time
		integer::hh,mm,ss
	end type time

	type(time)::x,y,z

	x=time(1,56,48)
	y=time(2,18,25)

	call time_add(x,y,z)

	write(6,*) z%hh,':',z%mm,':',z%ss

end program ex

subroutine time_add(x,y,z)

	use mtime

	implicit none

	type(time)::x,y,z

	integer ::cr

	z%ss=x%ss+y%ss

	cr=0

	if( z%ss >= 60) then
		z%ss=z%ss-60
		cr=1

		module mtime ! <-- time構造体を含むmoduleを定義
			type time
				integer::hh,mm,ss
			end type time
		end module

	end if
	
	z%mm=x%mm+y%mm+cr

	cr=0

	if( z%mm>= 60) then
		z%mm=z%mm-60
		cr=1
	end if

	z%hh=x%hh+y%hh+cr

end subroutine time_add

module mtime ! <-- time構造体を含むmoduleを定義
	type time
		integer::hh,mm,ss
	end type time
end module

	type time
		integer::hh,mm,ss
	end type time
end module

↑最初の回答で私が提示したのは、

１．「time」構造体の宣言箇所を1カ所にして、moduleにしよう。
２．program本体のtype宣言ブロックは不要
３．subroutineのtype宣言ブロックも不要
４．２，３の代わりに「use」宣言してmoduleを使うことにしよう。

↑こういう事でしたが、まったく「そのように」はなっていませんね。

Comments

[takashi.f]

回答有り難うございます。そのようにやってみたのですが、同じエラーが出てきてしまいました。
program ex
implicit none
type time
integer::hh,mm,ss
end type time

type(time)::x,y,z
x=time(1,56,48)
y=time(2,18,25)
call time_add(x,y,z)
write(6,*) z%hh,':',z%mm,':',z%ss
end program ex
subroutine time_add(x,y,z)
use mtime
implicit none
type(time)::x,y,z
integer ::cr
z%ss=x%ss+y%ss
cr=0
if( z%ss >= 60) then
z%ss=z%ss-60
cr=1
module mtime ! <-- time構造体を含むmoduleを定義
type time
integer::hh,mm,ss
end type time
end module
end if
z%mm=x%mm+y%mm+cr
cr=0
if( z%mm>= 60) then
z%mm=z%mm-60
cr=1
end if
z%hh=x%hh+y%hh+cr
end subroutine time_add
module mtime ! <-- time構造体を含むmoduleを定義
type time
integer::hh,mm,ss
end type time
end module
type time
integer::hh,mm,ss
end type time
end module

[tkturbo]

コメントに対する返信を回答本体に追記しました。

[curehoney]

原因としては、回答者が言っていることが的確で正しい。
対策も正しいが、どうせならサブルーチンも module の中に入れてしまった方がいいと思う。

[tkturbo]

> どうせならサブルーチンも module の中に入れてしまった方がいい

確かにそのほうがスリムですね。>>curehoneyさん

[takashi.f]

返信が大変遅くなり申し訳ございません
大変勉強になりました。ありがとうございました。