Openmp task subroutine bug

Hi,

Openmp is still unusable in 16.0 for me here is another openmp task bug  : the compiler ends with

LOC_type is: 1
101000_1

catastrophic error: **Internal compiler error.

Compiling with -O0 works or commenting the call to fun in fun1 works.

module tata
use omp_lib
implicit none

contains

subroutine toto(fun,x,f)
double precision,dimension(:),intent(in) :: x
double precision,intent(inout) :: f
interface
        subroutine fun(x,res)
                double precision,dimension(:),intent(in) :: x
                double precision :: res
        end subroutine
end interface

!$omp task
!$ print *,'Thread :',omp_get_thread_num(),'compute_f in omp'
call fun(x,f)
!$omp end task
contains
function fun1(X) result(y)
        double precision,dimension(:),intent(in) :: x
        double precision :: y
        call fun(x,y)
end function
end subroutine
end module tata