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" }