Fortraneries/Call_the_C/call_the_c.f90

16 lines
277 B
Fortran
Raw Normal View History

2023-06-03 21:05:56 +11:00
program call_the_c
implicit none
integer :: foo
integer, external :: give_me_my_pid
print *, "XXX we are calling a C func"
call first_try ()
foo = give_me_my_pid()
print *, "process id = ", foo
print *, "XXX are we alive ?"
end program