1
0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-12-23 04:43:57 +01:00

Fixed compilation with IBM compiler

This commit is contained in:
Anthony Scemama 2023-03-06 16:44:16 +01:00
parent 2465293581
commit 7955bc1d8e

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