--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/testsuite/gfortran.dg/submodule_20.f08	Fri Oct 27 22:46:09 2017 +0900
@@ -0,0 +1,27 @@
+! { dg-do compile }
+!
+! Test the fix for PR77903
+!
+! Contributed by Damian Rouson  <damian@sourceryinstitute.org>
+!
+module one_module
+  implicit none
+  interface
+    module function one()
+    end function
+    integer module function two()
+    end function
+  end interface
+end module
+
+submodule(one_module) one_submodule
+  implicit none
+contains
+  integer module function one()  ! { dg-error "Type mismatch" }
+    one = 1
+  end function
+  integer(8) module function two()  ! { dg-error "Type mismatch" }
+    two = 2
+  end function
+end submodule
+