+
−! { 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