1! { dg-do run }
2! { dg-options "-std=legacy" }
3!
4! PR 15129: we used to share the character length between A and B in the
5! subroutine.
6CHARACTER*10 A
7CHARACTER*8 B
8A = 'gfortran'
9B = 'rocks!'
10CALL T(A,B)
11contains
12SUBROUTINE T(A,B)
13CHARACTER*(*) A,B
14if(len(a)/=10) STOP 1
15if(len(b)/=8) STOP 2
16END SUBROUTINE
17end
18