diff -urN mesa-r12778/adipls/adipack.c/adipls/geninh.d.f mesa-r12778-compat-patches/adipls/adipack.c/adipls/geninh.d.f
--- mesa-r12778/adipls/adipack.c/adipls/geninh.d.f	2014-09-23 16:50:39
+++ mesa-r12778-compat-patches/adipls/adipack.c/adipls/geninh.d.f	2022-12-15 13:02:10
@@ -55,5 +55,6 @@
 c
       implicit double precision (a-h,o-z)
       external rhs
+      double precision x(*), y(iy,*)
       return
       end
diff -urN mesa-r12778/rates/private/eval_weak.f90 mesa-r12778-compat-patches/rates/private/eval_weak.f90
--- mesa-r12778/rates/private/eval_weak.f90	2019-09-25 15:56:06
+++ mesa-r12778-compat-patches/rates/private/eval_weak.f90	2022-12-15 13:03:03
@@ -328,6 +328,7 @@
          contains
          
          subroutine show_stuff
+            integer :: i
             include 'formats.dek'
             write(*,1) 'T9', T9
             write(*,1) 'lYeRho', lYeRho
diff -urN mesa-r12778/rates/private/suzuki_tables.f90 mesa-r12778-compat-patches/rates/private/suzuki_tables.f90
--- mesa-r12778/rates/private/suzuki_tables.f90	2019-09-25 15:56:06
+++ mesa-r12778-compat-patches/rates/private/suzuki_tables.f90	2022-12-15 13:02:55
@@ -548,7 +548,7 @@
       character(len=2*iso_name_length+1) :: key
 
       real(dp), parameter :: d_qnan = &
-           transfer((/ z'00000000', z'7ff80000' /),1.0_8)
+           transfer((/ int(z'00000000',8), int(z'7ff80000',8) /),1.0_8)
 
 
       !
diff -urN mesa-r12778/star/private/pgstar_support.f90 mesa-r12778-compat-patches/star/private/pgstar_support.f90
--- mesa-r12778/star/private/pgstar_support.f90	2020-01-06 16:40:55
+++ mesa-r12778-compat-patches/star/private/pgstar_support.f90	2022-12-15 13:03:22
@@ -1264,7 +1264,8 @@
          character (len=*), intent(in) :: side, label
          real, intent(in) :: disp, coord, fjust, ch
          integer, intent(in) :: lw
-         real :: sav_lw, sav_ch
+         integer :: sav_lw
+         real :: sav_ch
          call pgqch(sav_ch)
          call pgqlw(sav_lw)
          call pgslw(lw)
@@ -1778,7 +1779,8 @@
       subroutine show_box_pgstar(s, str1, str2)
          type (star_info), pointer :: s
          character (len=*), intent(in) :: str1, str2
-         real :: ch, lw
+         real :: ch
+         integer :: lw
          call pgqch(ch)
          call pgqlw(lw)
          call pgsch(s% pgstar_num_scale*ch)