59 lines · plain
1! Test lowering of ASYNCHRONOUS variables and IO statements.2! RUN: bbc -emit-hlfir -o - %s | FileCheck %s3 4module test_async5contains6subroutine test(x, iounit, idvar, pending)7 real, asynchronous :: x(10)8 integer :: idvar, iounit9 logical :: pending10! CHECK-LABEL: func.func @_QMtest_asyncPtest(11! CHECK: %[[VAL_4:.*]]:2 = hlfir.declare %{{.*}}idvar12! CHECK: %[[VAL_5:.*]]:2 = hlfir.declare %{{.*}}iounit13! CHECK: %[[VAL_6:.*]]:2 = hlfir.declare %{{.*}}pending14! CHECK: hlfir.declare %{{.*}}fir.var_attrs<asynchronous>{{.*}}x15 16 open(unit=iounit, asynchronous='yes')17! CHECK: %[[VAL_10:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i32>18! CHECK: %[[VAL_14:.*]] = fir.call @_FortranAioBeginOpenUnit(%[[VAL_10]]19! CHECK: %[[VAL_20:.*]] = fir.call @_FortranAioSetAsynchronous(%[[VAL_14]]20! CHECK: %[[VAL_21:.*]] = fir.call @_FortranAioEndIoStatement(%[[VAL_14]])21 22 write(unit=iounit,id=idvar, asynchronous='yes', fmt=*) x23! CHECK: %[[VAL_22:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i32>24! CHECK: %[[VAL_26:.*]] = fir.call @_FortranAioBeginExternalListOutput(%[[VAL_22]],25! CHECK: %[[VAL_32:.*]] = fir.call @_FortranAioSetAsynchronous(%[[VAL_26]],26! CHECK: %[[VAL_36:.*]] = fir.call @_FortranAioOutputDescriptor(%[[VAL_26]],27! CHECK: %[[VAL_37:.*]] = fir.call @_FortranAioGetAsynchronousId(%[[VAL_26]])28! CHECK: fir.store %[[VAL_37]] to %[[VAL_4]]#0 : !fir.ref<i32>29! CHECK: %[[VAL_38:.*]] = fir.call @_FortranAioEndIoStatement(%[[VAL_26]])30 31 inquire(unit=iounit, id=idvar, pending=pending)32! CHECK: %[[VAL_39:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i32>33! CHECK: %[[VAL_43:.*]] = fir.call @_FortranAioBeginInquireUnit(%[[VAL_39]],34! CHECK: %[[VAL_44:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i32>35! CHECK: %[[VAL_46:.*]] = fir.convert %[[VAL_6]]#0 : (!fir.ref<!fir.logical<4>>) -> !fir.ref<i1>36! CHECK: %[[VAL_47:.*]] = fir.call @_FortranAioInquirePendingId(%[[VAL_43]], %[[VAL_44]], %[[VAL_46]])37! CHECK: %[[VAL_48:.*]] = fir.convert %[[VAL_6]]#0 : (!fir.ref<!fir.logical<4>>) -> !fir.ref<i1>38! CHECK: %[[VAL_49:.*]] = fir.load %[[VAL_48]] : !fir.ref<i1>39! CHECK: %[[VAL_50:.*]] = fir.convert %[[VAL_49]] : (i1) -> !fir.logical<4>40! CHECK: fir.store %[[VAL_50]] to %[[VAL_6]]#0 : !fir.ref<!fir.logical<4>>41! CHECK: %[[VAL_51:.*]] = fir.call @_FortranAioEndIoStatement(%[[VAL_43]])42 43 wait(unit=iounit, id=idvar)44! CHECK: %[[VAL_52:.*]] = fir.load %[[VAL_5]]#0 : !fir.ref<i32>45! CHECK: %[[VAL_53:.*]] = fir.load %[[VAL_4]]#0 : !fir.ref<i32>46! CHECK: %[[VAL_57:.*]] = fir.call @_FortranAioBeginWait(%[[VAL_52]], %[[VAL_53]]47! CHECK: %[[VAL_58:.*]] = fir.call @_FortranAioEndIoStatement(%[[VAL_57]])48end subroutine49end module50 51 use test_async52 real :: x(10) = 1.53 integer :: iounit = 10054 integer :: idvar55 logical :: pending = .true.56 call test(x, iounit, idvar, pending)57 print *, idvar, pending58end59