gcc/testsuite/gfortran.dg/function_charlen_1.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR34429 in which function charlens that were
   3 ! USE associated would cause an error.
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6 !
   7 module m
   8   integer, parameter :: strlen = 5
   9 end module m
  10
  11 character(strlen) function test()
  12   use m
  13   test = 'A'
  14 end function test
  15
  16   interface
  17     character(strlen) function test()
  18       use m
  19     end function test
  20   end interface
  21   print *, test()
  22 end
  23 ! { dg-final { cleanup-modules "m" } }