18 lines · plain
1! Ensure that func.func arguments are given the Fortran attributes2! even if their first use is in a procedure designator reference3! and not a call.4 5! RUN: bbc -emit-hlfir -o - %s | FileCheck %s6 7subroutine test(x)8 interface9 subroutine foo(x)10 integer, optional, target :: x11 end subroutine12 end interface13 integer, optional, target :: x14 call takes_proc(foo)15 call foo(x)16end subroutine17! CHECK: func.func private @_QPfoo(!fir.ref<i32> {fir.optional, fir.target})18