diff --git a/example/CMakeLists.txt b/example/CMakeLists.txt
index c9fabb6..0bfc64a 100644
--- a/example/CMakeLists.txt
+++ b/example/CMakeLists.txt
@@ -15,3 +15,4 @@ make_example(get_value_ex)
 make_example(set_value_ex)
 make_example(conflicting_instances_ex)
 make_example(change_diffusivity_ex)
+make_example(bmi_geospatial_ex)
diff --git a/example/bmi_geospatial_ex.f90 b/example/bmi_geospatial_ex.f90
index 5e66fab..f91d0a2 100644
--- a/example/bmi_geospatial_ex.f90
+++ b/example/bmi_geospatial_ex.f90
@@ -1,6 +1,16 @@
 ! An example of using a BMI extension
 program bmi_geospatial_ex
 
+    use bmif_2_0
+    use bmiheatf
+    use bmiheatgeof
     implicit none
-    
+
+    type(bmi_heat) :: h
+    integer :: status
+    character (len=BMI_MAX_COMPONENT_NAME), pointer :: name
+
+    status = h%get_component_name(name)
+    write (*,"(a, a30)") "Component name: ", name
+
 end program bmi_geospatial_ex