mirror of
https://github.com/TREX-CoE/trexio.git
synced 2024-11-03 20:54:07 +01:00
Fixed compilation with IBM compiler
This commit is contained in:
parent
2465293581
commit
7955bc1d8e
@ -677,7 +677,6 @@ bool trexio_has_backend(back_end_t back_end) {
|
||||
#+begin_src f90 :tangle prefix_fortran.f90
|
||||
interface
|
||||
logical(c_bool) function trexio_has_back_end (back_end) bind(C)
|
||||
use, intrinsic :: iso_c_binding
|
||||
import
|
||||
integer(trexio_back_end_t), intent(in), value :: back_end
|
||||
end function trexio_has_back_end
|
||||
@ -685,7 +684,6 @@ end interface
|
||||
|
||||
interface
|
||||
logical(c_bool) function trexio_has_backend (back_end) bind(C)
|
||||
use, intrinsic :: iso_c_binding
|
||||
import
|
||||
integer(trexio_back_end_t), intent(in), value :: back_end
|
||||
end function trexio_has_backend
|
||||
|
Loading…
Reference in New Issue
Block a user