1! { dg-do compile } 2! { dg-options "-fwhole-file -std=legacy" } 3! Tests the fix for PR24886 in which the mismatch between the 4! character lengths of the actual and formal arguments of 5! 'foo' was not detected. 6! 7! Contributed by Uttam Pawar <uttamp@us.ibm.com> 8! 9 subroutine foo(y) 10 character(len=20) :: y 11 y = 'hello world' 12 end 13 14 program test 15 character(len=10) :: x 16 call foo(x) ! { dg-warning "actual argument shorter" } 17 write(*,*) 'X=',x 18 pause 19 end 20