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.
7 ! Contributed by Uttam Pawar <uttamp@us.ibm.com>
10 character(len=20) :: y
15 character(len=10) :: x
16 call foo(x) ! { dg-warning "actual argument shorter" }