gcc/testsuite/gfortran.dg/assumed_charlen_needed_1.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR24557 in which the return of a
   3 ! temporary character(*) array would cause an ICE.
   4 !
   5 ! Test case provided by Erik Edelmann  <eedelmann@gcc.gnu.org>
   6 !
   7   character(4) :: a(2)
   8   print *, fun (a)
   9 contains
  10   function fun (arg)
  11     character (*) :: arg (10)
  12     integer :: fun(size(arg))
  13     fun = 1
  14   end function fun
  15 end