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