17 lines · plain
1! RUN: bbc -emit-fir %s -o - | FileCheck %s2 3! Test lowering of non standard features.4 5! Test mismatch on result type between callee/caller6! CHECK-LABEL: func @_QPexpect_i327subroutine expect_i32()8 external :: returns_i329 real(4) :: returns_i3210 ! CHECK: %[[funcAddr:.*]] = fir.address_of(@_QPreturns_i32) : () -> i3211 ! CHECK: %[[funcCast:.*]] = fir.convert %[[funcAddr]] : (() -> i32) -> (() -> f32)12 ! CHECK: fir.call %[[funcCast]]() {{.*}}: () -> f3213 print *, returns_i32()14end subroutine15integer(4) function returns_i32()16end function17