ex1203f.f90

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

module typedef
  implicit none
  type person
    sequence ! 强迫自定义类型中的变量会依顺序在内存中排列
    integer age
    real    weight, height
  end type
end module

module cprog
  interface
    subroutine SUBA(str)
    !DEC$ ATTRIBUTES C, ALIAS:'_sub1' :: SUBA
	character(len=*) :: str
	!DEC$ ATTRIBUTES REFERENCE :: str
	end subroutine
    subroutine SUBB(c)
    !DEC$ ATTRIBUTES C, ALIAS:'_sub2' :: SUBB
	complex :: c
	!DEC$ ATTRIBUTES VALUE :: c
	end subroutine
	subroutine SUBC(p)
	use typedef
    !DEC$ ATTRIBUTES C, ALIAS:'_sub3' :: SUBC
    type(person) :: p
	end subroutine
  end interface
end module cprog

program main
  use typedef
  use cprog
  implicit none
  character(len=20) :: str="Fortran 95"C ! 在字符串最后补上0
  complex :: c=(1.0,2.0)
  type(person) :: p=person(20, 70, 180)

  call SUBA(str)
  call SUBB(c)
  call SUBC(p)

  stop
end program