File espresso-5.0.2-no-return-in-nonvoid-function.patch of Package quantum-espresso

diff -aruN espresso-5.0.2.orig/atomic/src/test_bessel.f90 espresso-5.0.2/atomic/src/test_bessel.f90
--- espresso-5.0.2.orig/atomic/src/test_bessel.f90	2012-11-21 13:39:56.000000000 +0100
+++ espresso-5.0.2/atomic/src/test_bessel.f90	2013-05-24 21:05:21.298028958 +0200
@@ -156,6 +156,7 @@
   !
   if ( sign(f1,f2) == f1 ) then
      iret = 1
+     find_root = 0
      return
   end if
 !
diff -aruN espresso-5.0.2.orig/PW/src/setup.f90 espresso-5.0.2/PW/src/setup.f90
--- espresso-5.0.2.orig/PW/src/setup.f90	2012-11-21 13:39:52.000000000 +0100
+++ espresso-5.0.2/PW/src/setup.f90	2013-05-24 21:04:34.994030593 +0200
@@ -682,7 +682,10 @@
   INTEGER, INTENT(IN) :: nbnd
   LOGICAL, SAVE :: first = .TRUE.
 
-  IF( .NOT. first ) RETURN
+  IF( .NOT. first ) THEN
+     check_para_diag = 0
+     RETURN
+  END IF
   first = .FALSE.
   !
   IF( np_ortho(1) > nbnd ) &
openSUSE Build Service is sponsored by