fortrangoingonforty/fgof-process / dd71a77

Browse files

Wrap process C interface binding

Authored by mfwolffe <wolffemf@dukes.jmu.edu>
SHA
dd71a77c61985380c7e32f4a719fd8bb247625c7
Parents
36dcd9a
Tree
559d81e

1 changed file

StatusFile+-
M src/fgof_process_posix.f90 2 1
src/fgof_process_posix.f90modified
@@ -30,7 +30,8 @@ module fgof_process_posix
3030
                                     env_set_blob, env_set_count, env_set_stride, &
3131
                                     env_unset_blob, env_unset_count, env_unset_stride, &
3232
                                     stdout_path, stdout_path_len, stderr_path, stderr_path_len, &
33
-                                    exit_code, term_signal, exec_failed, timed_out, sys_errno) bind(C, name="fgof_process_run_basic")
33
+                                    exit_code, term_signal, exec_failed, timed_out, sys_errno) &
34
+      bind(C, name="fgof_process_run_basic")
3435
       import :: c_char, c_int
3536
       character(kind=c_char), intent(in) :: program(*)
3637
       character(kind=c_char), intent(in) :: argv_blob(*)