diff --git a/examples/fortran/default.f90 b/examples/fortran/default.f90
index 6458d8f6c..7ca4791be 100644
--- a/examples/fortran/default.f90
+++ b/examples/fortran/default.f90
@@ -1,7 +1,6 @@
 ! Type your code here, or load an example.
-real function square(x)
+integer function square(x)
     implicit none
-    real, intent(in) :: x
+    integer, intent(in) :: x
     square = x * x
-    return
 end function square