flang/test/Lower/Intrinsics/Todo/reduce.f90

   1 ! RUN: %not_todo_cmd bbc -emit-fir %s -o -  2>&1 | FileCheck %s
   2
   3 interface
   4   pure function chfunc(a,b)
   5     character(*),intent(in) :: a,b
   6     character(3) :: chfunc
   7   end function
   8   end interface
   9   character(3) x(5)
  10   print*, reduce(x,chfunc)
  11 end program
  12
  13 ! CHECK: not yet implemented: intrinsic: reduce