TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-07-22 10:47:43 +02:00
Code Issues Projects Releases Wiki Activity

Fix fortran test

Browse Source
This commit is contained in:
Anthony Scemama 2023-01-04 13:38:17 +01:00
parent fd75a1cf95
commit 72c100476f
2 changed files with 22 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.github/workflows/actions.yml vendored
View File

@ -61,7 +61,7 @@ jobs:
if: failure()
uses: actions/upload-artifact@82c141cc518b40d92cc801eee768e7aafc9c2fa2
with:
name: test-report-ubuntu-debug
name: test-report-ubuntu
path: test-suite.log
- name: create virtual environment
@ -107,7 +107,7 @@ jobs:
if: failure()
uses: actions/upload-artifact@82c141cc518b40d92cc801eee768e7aafc9c2fa2
with:
name: test-report-ubuntu-debug
name: test-report-ubuntu-2
path: test-suite.log
- name: maintainer clean
@ -142,7 +142,7 @@ jobs:
if: failure()
uses: actions/upload-artifact@82c141cc518b40d92cc801eee768e7aafc9c2fa2
with:
name: test-report-ubuntu-debug
name: test-report-macos
path: test-suite.log
- name: clean

25
src/templates_front/templator_front.org
View File

@ -1593,7 +1593,7 @@ def _inquire(file_name: str) -> bool:
~trexio_cp~ copies a TREXIO file using =/bin/cp=.
**Input parameters:**
1) ~source_file_name~ - string containing the name of the source file
1) ~source_file_name~ - string containing the name of the source file
2) ~destination_file_name~ - string containing the name of the new file
**Output:**
@ -1646,12 +1646,12 @@ trexio_cp(const char* source, const char* dest)
if (trexio_inquire(dest) == TREXIO_SUCCESS) {
/* Destination file already exists */
return TREXIO_FILE_ERROR;
};
}
/* Call cp */
pid_t pid = fork();
if (pid == 0) {
if (pid == 0) {
switch (back_end_local) {
case TREXIO_TEXT:
execl("/bin/cp", "/bin/cp", "-r", "-n", source, dest, (char *)0);
@ -1685,12 +1685,25 @@ trexio_cp(const char* source, const char* dest)
#+begin_src f90 :tangle prefix_fortran.f90
interface
integer(trexio_exit_code) function trexio_cp (source, destination) bind(C, name="trexio_cp")
integer(trexio_exit_code) function trexio_cp_c (source, destination) bind(C, name="trexio_cp")
use, intrinsic :: iso_c_binding
import
character(kind=c_char), dimension(*) :: source, destination
end function trexio_cp
end function trexio_cp_c
end interface
integer(trexio_exit_code) function trexio_cp (source, destination)
use, intrinsic :: iso_c_binding
implicit none
character(len=*), intent(in) :: source
character(len=*), intent(in) :: destination
character(len=len_trim(source)+1) :: source_c
character(len=len_trim(destination)+1) :: destination_c
source_c = trim(source) // c_null_char
destination_c = trim(destination) // c_null_char
trexio_cp = trexio_cp_c(source_c, destination_c)
end function trexio_cp
#+end_src
*** Python
@ -1812,7 +1825,7 @@ end interface
*** Python
See TREXIO File Python class.
** Tasks to be done before closing
#+begin_src c :tangle trexio_private.h :exports none