Try renaming to avoid name mangling

Author: znicholls

src/example_fgen_basic/get_wavelength.f90

@@ -13,11 +13,11 @@ module m_get_wavelength
     real(kind=dp), parameter, public :: speed_of_light = 2.99792e8_dp
     !! Speed of light [m/s]
 
-    public :: get_wavelength
+    public :: inner_get_wavelength
 
 contains
 
-    pure function get_wavelength(frequency) result(wavelength)
+    pure function inner_get_wavelength(frequency) result(wavelength)
         !! Get wavelength of light for a given frequency
         !
         ! Trying with FORD style docstrings for now
@@ -31,6 +31,6 @@ pure function get_wavelength(frequency) result(wavelength)
 
         wavelength = speed_of_light / frequency
 
-    end function get_wavelength
+    end function inner_get_wavelength
 
 end module m_get_wavelength

src/example_fgen_basic/get_wavelength_wrapper.f90

@@ -9,7 +9,7 @@
 !> so there will be one extra file compared to what we have here.
 module m_get_wavelength_w  ! Convention to date: just suffix wrappers with _w
 
-    use m_get_wavelength, only: o_get_wavelength => get_wavelength
+    use m_get_wavelength, only: inner_get_wavelength
     ! We won't always need the renaming trick,
     ! but here we do as the wrapper function
     ! and the original function should have the same name.
@@ -34,7 +34,7 @@ pure function get_wavelength(frequency) result(wavelength)
         real(kind=dp) :: wavelength
             !! Corresponding wavelength
 
-        wavelength = o_get_wavelength(frequency)
+        wavelength = inner_get_wavelength(frequency)
 
     end function get_wavelength