1! { dg-do compile } 2! tests the fix for PR31540, in which the character lengths in 3! parentheses were not resolved. 4! 5! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 6! 7 subroutine pfb() 8 implicit none 9 external pfname1, pfname2 10 character ((136)) pfname1 11 character ((129+7)) pfname2 12 return 13 end 14