program F90Test2 use Mytype ! ヘッダファイル module mytype.f90 を読み込む. use rational_arithmetic ! 上で定義した module implicit none ! F77 伝統の暗黙の型宣言の不使用を選ぶと integer(I4B):: i,j,n ! 使う変数をすべて宣言しなければならない. type(rational) :: a, b, c, d, e write(*,*)'Rational number a (num,den):' read(*,*)a%num, a%den write(*,*)'Rational number b (num,den):' read(*,*)b%num, b%den e=a+b write(*,*)'a + b = ', e%num,'/',e%den e=a*b write(*,*)'a * b = ', e%num,'/',e%den end program F90Test2