1! { dg-do compile } 2! 3! PR 54189: ICE (segfault) with invalid assumed-size dummy 4! 5! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 6 7 implicit none 8 procedure(g), pointer :: x ! { dg-error "must be a dummy argument" } 9 x => g 10 11contains 12 13 function g() ! { dg-error "must be a dummy argument" } 14 integer :: g(*) 15 end function 16 17end 18