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