質問41/42
次のプログラムは正しくありません（コンパイルエラーとなります）。
3 〜 7 行目の何行目に誤りがあるでしょうか？

   
 1: program main   
 2:   implicit none   
 3:   integer :: x, y, z   
 4:   x = 5   
 5:   y = 8   
 6:   mul(x, y, z)   
 7:   print *, z   
 8: contains   
 9:   subroutine mul(a, b, c)   
10:     integer, intent(in) :: a, b   
11:     integer, intent(out) :: c   
12:     c = a * b   
13:   end subroutine mul   
14: end program main