Calling atexit() from Fortran

[mriedman]

I'm not sure whether or not there is a more elegant way of implementing module finalizer routines in Fortran. If yes, please let me know.

Otherwise feel free to use thisdemo code which makes use of the ISO C bindings and POSIX atexit() function and demonstrates how Fortran routines can be passed as an argument to atexit().

[fortran]module atexit_demo

  use, intrinsic :: iso_c_binding

  implicit none

interface

  function atexit(fptr) bind(c)
  use, intrinsic :: iso_c_binding
  type(c_funptr), value, intent(in) :: fptr
  integer(4) :: atexit
  end function

end interface

  public

contains

  subroutine init
    integer :: ierr
    type(c_funptr) :: fptr

    fptr = c_funloc(called_on_exit)
    print *,'calling atexit'
    ierr = atexit(fptr)
    print *,'atexit error', ierr
  end subroutine init


  subroutine called_on_exit
    print *,'Bye'
  end subroutine called_on_exit

end module atexit_demo
[/fortran]