diff --git a/src/elpa.F90 b/src/elpa.F90
index 3a763610b4792c66f9b1657b3ba85df6b03ec98f..68517418d969e475bfd432c7cee49c12bf641557 100644
--- a/src/elpa.F90
+++ b/src/elpa.F90
@@ -116,13 +116,13 @@
 !>     stop
 !>   endif
 !>   elpa => elpa_allocate(success)
-!>   if (success != ELPA_OK) then
+!>   if (success /= ELPA_OK) then
 !>     print *,"Could not allocate ELPA"
 !>   endif
 !>
 !>   ! set parameters decribing the matrix and it's MPI distribution
 !>   call elpa%set("na", na, success, success)
-!>   if (success != ELPA_OK) then
+!>   if (success /= ELPA_OK) then
 !>     print *,"Could not set entry"
 !>   endif
 !>   call elpa%set("nev", nev, success, success)
@@ -139,7 +139,7 @@
 !>
 !>   ! set up the elpa object
 !>   success = elpa%setup()
-!>   if (succes != ELPA_OK) then
+!>   if (succes /= ELPA_OK) then
 !>     print *,"Could not setup ELPA object"
 !>   endif
 !>