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