flang/test/Lower/Intrinsics/abort.f90

   1 ! RUN: bbc -emit-fir %s -o - | FileCheck %s
   2
   3 ! CHECK-LABEL: func.func @_QPabort_test() {
   4 ! CHECK:         %[[VAL_0:.*]] = fir.call @_FortranAAbort() {{.*}}: () -> none
   5 ! CHECK:         return
   6 ! CHECK:       }
   7
   8 subroutine abort_test()
   9   call abort
  10 end subroutine