! { dg-do compile } | |
! tests the fix for PR31540, in which the character lengths in | |
! parentheses were not resolved. | |
! | |
! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
! | |
subroutine pfb() | |
implicit none | |
external pfname1, pfname2 | |
character ((136)) pfname1 | |
character ((129+7)) pfname2 | |
return | |
end |