diff --git a/src/cpp_bindgen/generator.cpp b/src/cpp_bindgen/generator.cpp
index 66d3494..dd13997 100644
--- a/src/cpp_bindgen/generator.cpp
+++ b/src/cpp_bindgen/generator.cpp
@@ -154,6 +154,7 @@ namespace cpp_bindgen {
     void generate_fortran_interface(std::ostream &strm, std::string const &module_name) {
         strm << "! This file is generated!\n";
         strm << "module " << module_name << "\n";
+        strm << "use iso_c_binding\n"; // pgi wants to have this
         strm << "implicit none\n";
         strm << "  interface\n\n";
         strm << _impl::get_entities<_impl::fortran_bindings_traits>();
diff --git a/tests/regression/array/bindgen_regression_array.f90 b/tests/regression/array/bindgen_regression_array.f90
index e4d27a8..f8a9373 100644
--- a/tests/regression/array/bindgen_regression_array.f90
+++ b/tests/regression/array/bindgen_regression_array.f90
@@ -1,5 +1,6 @@
 ! This file is generated!
 module bindgen_regression_array
+use iso_c_binding
 implicit none
   interface
 
diff --git a/tests/regression/array_gt_legacy/bindgen_regression_array_gt_legacy.f90 b/tests/regression/array_gt_legacy/bindgen_regression_array_gt_legacy.f90
index 5e86b69..cc8b497 100644
--- a/tests/regression/array_gt_legacy/bindgen_regression_array_gt_legacy.f90
+++ b/tests/regression/array_gt_legacy/bindgen_regression_array_gt_legacy.f90
@@ -1,5 +1,6 @@
 ! This file is generated!
 module bindgen_regression_array_gt_legacy
+use iso_c_binding
 implicit none
   interface
 
diff --git a/tests/regression/simple/bindgen_regression_simple.f90 b/tests/regression/simple/bindgen_regression_simple.f90
index 3c1f24f..b00b9f6 100644
--- a/tests/regression/simple/bindgen_regression_simple.f90
+++ b/tests/regression/simple/bindgen_regression_simple.f90
@@ -1,5 +1,6 @@
 ! This file is generated!
 module bindgen_regression_simple
+use iso_c_binding
 implicit none
   interface
 
diff --git a/tests/unit_tests/test_export.cpp b/tests/unit_tests/test_export.cpp
index 00c2662..f848f50 100644
--- a/tests/unit_tests/test_export.cpp
+++ b/tests/unit_tests/test_export.cpp
@@ -120,6 +120,7 @@ void test_cpp_bindgen_and_wrapper_compatible_type_b(bindgen_fortran_array_descri
 
     const char expected_fortran_interface[] = R"?(! This file is generated!
 module my_module
+use iso_c_binding
 implicit none
   interface
 
diff --git a/tests/unit_tests/test_generator.cpp b/tests/unit_tests/test_generator.cpp
index b0b2ed0..74c9e02 100644
--- a/tests/unit_tests/test_generator.cpp
+++ b/tests/unit_tests/test_generator.cpp
@@ -54,6 +54,7 @@ void qux(int, bindgen_fortran_array_descriptor*);
 
         const char expected_fortran_interface[] = R"?(! This file is generated!
 module my_module
+use iso_c_binding
 implicit none
   interface