ex1208f.f90

来自「Fortran95的一些有用的源程序」· F90 代码 · 共 22 行

module typedef
  implicit none
  type person
    integer age
	real    weight, height
  end type
end module

program main
  use typedef
  implicit none
  integer :: a=3
  character(len=20) :: str="FORTRAN 95"
  type(person) :: p=person(20,70,180)  

  call sub1(a)
  call sub2(str)
  call sub3(p)

  stop
end