gcc/testsuite/gfortran.dg/parens_4.f90

   1 ! { dg-do compile }
   2 ! Fallout from the patch for PR 14771
   3 ! Testcase by Erik Zeek
   4 program test
   5     call bob(5)
   6 contains
   7     subroutine bob(n)
   8         integer, intent(in) :: n
   9         character(len=n) :: temp1
  10         character(len=(n)) :: temp2 ! Fails here
  11     end subroutine bob
  12 end program test