ex1201s.f90

fortran基本语句

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