old-autovect-branch/gcc/testsuite/gfortran.fortran-torture/execute/straret.f90

   1 ! Test assumed length character functions.
   2
   3 character*(*) function f()
   4   f = "Hello"
   5 end function
   6
   7 character*6 function g()
   8   g = "World"
   9 end function
  10
  11 program straret
  12   character*6 f, g
  13   character*12 v
  14
  15
  16   v = f() //  g()
  17   if (v .ne. "Hello World ") call abort ()
  18 end program