blob: 1ebc9b2a617bd6f312032b5541d1c2f9fd6dc102 [file] [log] [blame]
module testmodule
integer :: xfromtestmodule
end module
function testfunction(A)
integer, intent(in) :: A
testfunction = 4;
end function
program fortrantest !<<<<< 1,1,pass
print *, "Main program!"
end program
subroutine do_stuff
print *,"Hi!"
end subroutine