1! { dg-do compile } 2! 3! Checks the fix for PR68534 in which checks for the number 4! failed if either the interface or the module procedure had 5! no dummies. 6! 7! Reported on clf at: 8! https://groups.google.com/forum/#!topic/comp.lang.fortran/-ZgbM5qkFmc 9! 10module m 11 implicit none 12 interface 13 module subroutine foo() 14 end subroutine foo 15 16 module subroutine bar(i) 17 integer, intent(inout) :: i 18 end subroutine bar 19 end interface 20end module m 21 22submodule(m) sm 23contains 24 module subroutine foo(i) ! { dg-error "Mismatch in number of MODULE PROCEDURE formal" } 25 integer, intent(inout) :: i 26 i = 42 27 end subroutine foo 28 29 module subroutine bar ! { dg-error "Mismatch in number of MODULE PROCEDURE formal" } 30 print *, "bar" 31 end subroutine bar 32end submodule sm 33