TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-12-22 20:35:44 +01:00
Code Issues Projects Releases Wiki Activity

Fixed compilation with IBM compiler

Browse Source
This commit is contained in:
Anthony Scemama 2023-03-06 16:44:16 +01:00
parent 2465293581
commit 7955bc1d8e
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/templates_front/templator_front.org
View File

@ -677,7 +677,6 @@ bool trexio_has_backend(back_end_t back_end) {
#+begin_src f90 :tangle prefix_fortran.f90 #+begin_src f90 :tangle prefix_fortran.f90
interface interface
logical(c_bool) function trexio_has_back_end (back_end) bind(C) logical(c_bool) function trexio_has_back_end (back_end) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_back_end_t), intent(in), value :: back_end integer(trexio_back_end_t), intent(in), value :: back_end
end function trexio_has_back_end end function trexio_has_back_end
@ -685,7 +684,6 @@ end interface
interface interface
logical(c_bool) function trexio_has_backend (back_end) bind(C) logical(c_bool) function trexio_has_backend (back_end) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_back_end_t), intent(in), value :: back_end integer(trexio_back_end_t), intent(in), value :: back_end
end function trexio_has_backend end function trexio_has_backend