21 lines
656 B
Fortran
21 lines
656 B
Fortran
|
! RUN: bbc -emit-fir -hlfir=false -o - %s | FileCheck %s
|
||
|
|
! RUN: %flang_fc1 -emit-fir -flang-deprecated-no-hlfir %s -o - | FileCheck %s
|
||
|
|
|
||
|
|
! CHECK-LABEL: func @_QPfail_image_test
|
||
|
|
subroutine fail_image_test(fail)
|
||
|
|
logical :: fail
|
||
|
|
! CHECK: cond_br {{.*}}, ^[[BB1:.*]], ^[[BB2:.*]]
|
||
|
|
! CHECK: ^[[BB1]]:
|
||
|
|
if (fail) then
|
||
|
|
! CHECK: {{.*}} = fir.call @_FortranAFailImageStatement() {{.*}}: () -> none
|
||
|
|
! CHECK-NEXT: fir.unreachable
|
||
|
|
FAIL IMAGE
|
||
|
|
end if
|
||
|
|
! CHECK: ^[[BB2]]:
|
||
|
|
! CHECK-NEXT: br ^[[BB3:.*]]
|
||
|
|
! CHECK-NEXT: ^[[BB3]]
|
||
|
|
! CHECK-NEXT: return
|
||
|
|
return
|
||
|
|
end subroutine
|
||
|
|
! CHECK-LABEL: func private @_FortranAFailImageStatement() -> none attributes {fir.runtime}
|