1! { dg-do compile } 2! 3! PR 35831: [F95] Shape mismatch check missing for dummy procedure argument 4! 5! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 6 7program test 8 9 implicit none 10 11 interface 12 subroutine one(a) 13 integer a(:) 14 end subroutine 15 subroutine two(a) 16 integer a(2) 17 end subroutine 18 end interface 19 20 call foo(two) ! { dg-error "Shape mismatch in argument" } 21 call bar(two) ! { dg-error "Shape mismatch in argument" } 22 23contains 24 25 subroutine foo(f1) 26 procedure(one) :: f1 27 end subroutine foo 28 29 subroutine bar(f2) 30 interface 31 subroutine f2(a) 32 integer a(:) 33 end subroutine 34 end interface 35 end subroutine bar 36 37end program 38