gcc/testsuite/gfortran.dg/parens_5.f90

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