gcc/testsuite/gfortran.dg/char_length_4.f90

   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