ugly but working

2023-06-03 12:05:56 +02:00
parent 86553a65b5
commit f8d5e66a5c
6 changed files with 84 additions and 0 deletions
--- a/Call_the_C/call_the_c.f90
+++ b/Call_the_C/call_the_c.f90
@@ -0,0 +1,15 @@
+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
+
+