1! { dg-do run } 2! 3! This tests the (partial) fix for PR35830, i.e. handling array arguments 4! with the PROCEDURE statement. 5! 6! Contributed by Janus Weil <janus@gcc.gnu.org> 7 8module m 9contains 10 subroutine one(a) 11 integer a(1:3) 12 if (any(a /= [1,2,3])) call abort() 13 end subroutine one 14end module m 15 16program test 17 use m 18 implicit none 19 call foo(one) 20contains 21 subroutine foo(f) 22 procedure(one) :: f 23 call f([1,2,3]) 24 end subroutine foo 25end program test 26