ex1201s.f90

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

subroutine SUB()
!DEC$ ATTRIBUTES DLLEXPORT :: SUB
  implicit none
  write(*,*) "Subroutine in DLL"
  return
end