1 2 3 4 5 6 7 8 9 10 11
program main implicit none interface subroutine hello() bind (c) end subroutine hello end interface call hello() end program