13 lines
304 B
Fortran
13 lines
304 B
Fortran
! RUN: %not_todo_cmd bbc -emit-fir %s -o - 2>&1 | FileCheck %s
|
|
|
|
interface
|
|
pure function chfunc(a,b)
|
|
character(*),intent(in) :: a,b
|
|
character(3) :: chfunc
|
|
end function
|
|
end interface
|
|
character(3) x(5)
|
|
print*, reduce(x,chfunc)
|
|
end program
|
|
|
|
! CHECK: not yet implemented: intrinsic: reduce
|