! { dg-do compile }
!
! PR fortran/99798
! This example used to trigger an ICE caused by a premature release of the G
! symbol (with its argument X) following the rejection of the subroutine in
! the submodule.

module m
   interface
      module integer function g(x)
         integer, intent(in) :: x
      end
   end interface
end
submodule(m) m2
contains
   subroutine g(x)      ! { dg-error "FUNCTION attribute conflicts with SUBROUTINE" }
     integer, intent(in) :: x  ! { dg-error "Unexpected data declaration" }
   end
end