gcc/testsuite/gfortran.dg/auto_internal_assumed.f90

   1 ! { dg-do compile }
   2 ! Test fix of PR24705 - ICE on assumed character length
   3 ! internal function.
   4 !
   5 character (6) :: c
   6   c = f1 ()
   7   if (c .ne. 'abcdef') call abort
   8 contains
   9   function f1 () ! { dg-error "must not be assumed length" }
  10     character (*) :: f1
  11     f1 = 'abcdef'
  12   end function f1
  13 end