SUBROUTINE print_fortran()
          PRINT *, 'Hello World from Fortran'
          RETURN
        END SUBROUTINE