21 lines · plain
1! RUN: bbc -emit-fir -hlfir=false -o - %s | FileCheck %s2! RUN: %flang_fc1 -emit-fir -flang-deprecated-no-hlfir %s -o - | FileCheck %s3 4! CHECK-LABEL: func @_QPfail_image_test5subroutine fail_image_test(fail)6 logical :: fail7! CHECK: cond_br {{.*}}, ^[[BB1:.*]], ^[[BB2:.*]]8! CHECK: ^[[BB1]]:9 if (fail) then10! CHECK: fir.call @_FortranAFailImageStatement() {{.*}}:11! CHECK-NEXT: fir.unreachable12 FAIL IMAGE13 end if14! CHECK: ^[[BB2]]:15! CHECK-NEXT: br ^[[BB3:.*]]16! CHECK-NEXT: ^[[BB3]]17! CHECK-NEXT: return18 return19end subroutine20! CHECK-LABEL: func private @_FortranAFailImageStatement() attributes {fir.runtime}21