// RUN: echo "module {}" | fir-opt --gen-runtime-calls-for-test | FileCheck %s // NOTE: Assertions have been autogenerated by flang/test/Utils/generate-checks-for-runtime-funcs.py // The script allows updating Flang LIT test // flang/test/Transforms/verify-known-runtime-functions.fir, // which is intended to verify signatures of Fortran runtime // functions recognized in flang/Optimizer/Transforms/RuntimeFunctions.inc // table. If new function is added into the table or // an existing function changes its signature, // the SetRuntimeCallAttributesPass may need to be updated // to properly handle it. Once the pass is verified to work, // one can update this test using the following output: // echo "module {}" | fir-opt --gen-runtime-calls-for-test | \ // generate-checks-for-runtime-funcs.py // CHECK-NOT: func.func // CHECK: func.func private @_FortranAioBeginBackspace(i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginClose(i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginEndfile(i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginExternalFormattedInput(!fir.ref, i64, !fir.box, i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginExternalFormattedOutput(!fir.ref, i64, !fir.box, i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginExternalListInput(i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginExternalListOutput(i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginFlush(i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginInquireFile(!fir.ref, i64, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginInquireIoLength(!fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginInquireUnit(i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginInternalArrayFormattedInput(!fir.box, !fir.ref, i64, !fir.box, !fir.ref>, i64, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginInternalArrayFormattedOutput(!fir.box, !fir.ref, i64, !fir.box, !fir.ref>, i64, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginInternalArrayListInput(!fir.box, !fir.ref>, i64, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginInternalArrayListOutput(!fir.box, !fir.ref>, i64, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginInternalFormattedInput(!fir.ref, i64, !fir.ref, i64, !fir.box, !fir.ref>, i64, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginInternalFormattedOutput(!fir.ref, i64, !fir.ref, i64, !fir.box, !fir.ref>, i64, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginInternalListInput(!fir.ref, i64, !fir.ref>, i64, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginInternalListOutput(!fir.ref, i64, !fir.ref>, i64, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginOpenNewUnit(!fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginOpenUnit(i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginRewind(i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginUnformattedInput(i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginUnformattedOutput(i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginWait(i32, i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioBeginWaitAll(i32, !fir.ref, i32) -> !fir.ref attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioCheckUnitNumberInRange128(i128, i1, !fir.ref, i64, !fir.ref, i32) -> i32 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioCheckUnitNumberInRange64(i64, i1, !fir.ref, i64, !fir.ref, i32) -> i32 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioEnableHandlers(!fir.ref, i1, i1, i1, i1, i1) attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioEndIoStatement(!fir.ref) -> i32 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioGetAsynchronousId(!fir.ref) -> i32 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioGetIoLength(!fir.ref) -> i64 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioGetIoMsg(!fir.ref, !fir.ref, i64) attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioGetNewUnit(!fir.ref, !fir.ref, i32) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioGetSize(!fir.ref) -> i64 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInputAscii(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInputComplex32(!fir.ref, !fir.ref) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInputComplex64(!fir.ref, !fir.ref) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInputDerivedType(!fir.ref, !fir.box, !fir.ref>) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInputDescriptor(!fir.ref, !fir.box) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInputInteger(!fir.ref, !fir.ref, i32) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInputLogical(!fir.ref, !fir.ref) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInputNamelist(!fir.ref, !fir.ref>) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInputReal32(!fir.ref, !fir.ref) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInputReal64(!fir.ref, !fir.ref) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInquireCharacter(!fir.ref, i64, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInquireInteger64(!fir.ref, i64, !fir.ref, i32) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInquireLogical(!fir.ref, i64, !fir.ref) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioInquirePendingId(!fir.ref, i32, !fir.ref) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputAscii(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputComplex32(!fir.ref, f32, f32) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputComplex64(!fir.ref, f64, f64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputDerivedType(!fir.ref, !fir.box, !fir.ref>) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputDescriptor(!fir.ref, !fir.box) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputInteger128(!fir.ref, i128) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputInteger16(!fir.ref, i16) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputInteger32(!fir.ref, i32) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputInteger64(!fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputInteger8(!fir.ref, i8) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputLogical(!fir.ref, i1) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputNamelist(!fir.ref, !fir.ref>) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputReal32(!fir.ref, f32) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioOutputReal64(!fir.ref, f64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetAccess(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetAction(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetAdvance(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetAsynchronous(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetBlank(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetCarriagecontrol(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetConvert(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetDecimal(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetDelim(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetEncoding(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetFile(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetForm(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetLeadingZero(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetPad(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetPos(!fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetPosition(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetRec(!fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetRecl(!fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetRound(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetSign(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NEXT: func.func private @_FortranAioSetStatus(!fir.ref, !fir.ref, i64) -> i1 attributes {fir.io, fir.runtime} // CHECK-NOT: func.func