gcc/testsuite/gfortran.dg/parens_5.f90

   1 ! { dg-do run }
   2 ! Another case of fallout from the original patch for PR14771
   3 ! Testcase by Erik Zeek
   4 module para
   5 contains
   6    function bobo(n)
   7        integer, intent(in) :: n
   8        character(len=(n)) :: bobo ! Used to fail here
   9        bobo = "1234567890"
  10    end function bobo
  11 end module para
  12
  13 program test
  14    use para
  15    implicit none
  16    character*5 c
  17    c = bobo(5)
  18    if (c .ne. "12345") call abort
  19 end program test
  20
  21 ! { dg-final { cleanup-modules "para" } }