gcc/testsuite/gfortran.dg/submodule_20.f08

! { 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