Commit ad9f8192 authored by Andreas Marek's avatar Andreas Marek

Fix problem with --disable-Fortran2008-features

parent f13327e4
......@@ -74,14 +74,14 @@ program print_available_elpa2_kernels
integer(kind=c_int) :: i
class(elpa_t), pointer :: e
integer :: option
integer :: option, error
if (elpa_init(CURRENT_API_VERSION) /= ELPA_OK) then
print *, "Unsupported ELPA API Version"
stop 1
endif
e => elpa_allocate()
e => elpa_allocate(error)
print *, "This program will give information on the ELPA2 kernels, "
print *, "which are available with this library and it will give "
......@@ -125,7 +125,7 @@ program print_available_elpa2_kernels
print *
print *
call elpa_deallocate(e)
call elpa_deallocate(e, error)
contains
......@@ -141,7 +141,7 @@ program print_available_elpa2_kernels
if (elpa_int_value_to_string(KERNEL_KEY, i) .eq. "ELPA_2STAGE_COMPLEX_GPU" .or. &
elpa_int_value_to_string(KERNEL_KEY, i) .eq. "ELPA_2STAGE_REAL_GPU") then
if (e%can_set("use_gpu",1) == ELPA_OK) then
call e%set("use_gpu",1)
call e%set("use_gpu",1, error)
endif
endif
......
......@@ -201,7 +201,7 @@ program test_interface
call elpa_deallocate(e2, success)
assert_elpa_ok(success)
call elpa_uninit()
call elpa_uninit(success)
status = check_correctness_evp_numeric_residuals(na, nev, as1, z1, ev1, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
......
......@@ -180,7 +180,7 @@ program test
call prepare_matrix_analytic(na, a, nblk, myid, np_rows, np_cols, my_prow, my_pcol, print_times=.false.)
as(:,:) = a(:,:)
e1 => elpa_allocate()
e1 => elpa_allocate(error)
!assert_elpa_ok(error)
call set_basic_params(e1, na, nev, na_rows, na_cols, my_prow, my_pcol)
......@@ -313,7 +313,7 @@ program test
status = check_correctness_analytic(na, nev, ev, z, nblk, myid, np_rows, np_cols, my_prow, my_pcol, &
.true., .true., print_times=.false.)
call elpa_deallocate(e_ptr)
call elpa_deallocate(e_ptr, error)
!assert_elpa_ok(error)
deallocate(a)
......@@ -321,7 +321,7 @@ program test
deallocate(z)
deallocate(ev)
call elpa_uninit()
call elpa_uninit(error)
!assert_elpa_ok(error)
#ifdef WITH_MPI
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment