gcc/testsuite/gfortran.dg/pr93423.f90

   1 ! { dg-do compile }
   2 ! PR fortran/93423 - ICE on invalid with argument list for module procedure
   3
   4 module t
   5   type :: b
   6    contains
   7      procedure :: p => bp
   8   end type b
   9   interface
  10      module function bp(s)
  11        class(b), intent(inout) :: s
  12        integer, pointer :: bp
  13      end function
  14   end interface
  15 end module t
  16
  17 submodule (t) ts
  18 contains
  19   module procedure bp(s) ! { dg-error "must be in a generic module interface" }
  20   end procedure bp       ! { dg-error "Expecting END SUBMODULE statement" }
  21 end submodule ts