| ! { dg-do compile } | |
| ! { dg-options "-std=legacy" } | |
| ! Tests the fix for PR24886 in which the mismatch between the | |
| ! character lengths of the actual and formal arguments of | |
| ! 'foo' was not detected. | |
| ! | |
| ! Contributed by Uttam Pawar <uttamp@us.ibm.com> | |
| ! | |
| subroutine foo(y) | |
| character(len=20) :: y | |
| y = 'hello world' | |
| end | |
| program test | |
| character(len=10) :: x | |
| call foo(x) ! { dg-warning "actual argument shorter" } | |
| write(*,*) 'X=',x | |
| pause | |
| end |