mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:56:42 +00:00
4679132a85
Finish plugging-in ASYNCHRONOUS IO in lowering (GetAsynchronousId was not used yet). Add a runtime implementation for GetAsynchronousId (only the signature was defined). Always return zero since flang runtime "fakes" asynchronous IO (data transfer are always complete, see flang/docs/IORuntimeInternals.md). Update all runtime integer argument and results for IDs to use the AsynchronousId int alias for consistency. In lowering, asynchronous attribute is added on the hlfir.declare of ASYNCHRONOUS variable, but nothing else is done. This is OK given the synchronous aspects of flang IO, but it would be safer to treat these variable as volatile (prevent code motion of related store/loads) since the asynchronous data change can also be done by C defined user procedure (see 18.10.4 Asynchronous communication). Flang lowering anyway does not give enough info for LLVM to do such code motions (the variables that are passed in a call are not given the noescape attribute, so LLVM will assume any later opaque call may modify the related data and would not move load/stores of such variables before/after calls even if it could from a pure Fortran point of view without ASYNCHRONOUS).
146 lines
5.5 KiB
Fortran
146 lines
5.5 KiB
Fortran
! RUN: bbc %s -emit-fir -hlfir=false -o - | FileCheck %s
|
|
! UNSUPPORTED: system-windows
|
|
|
|
logical :: existsvar
|
|
integer :: length
|
|
real :: a(100)
|
|
|
|
! CHECK-LABEL: _QQmain
|
|
! CHECK: call {{.*}}BeginOpenUnit
|
|
! CHECK-DAG: call {{.*}}SetFile
|
|
! CHECK-DAG: call {{.*}}SetAccess
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
open(8, file="foo", access="sequential")
|
|
|
|
! CHECK: call {{.*}}BeginBackspace
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
backspace(8)
|
|
|
|
! CHECK: call {{.*}}BeginFlush
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
flush(8)
|
|
|
|
! CHECK: call {{.*}}BeginRewind
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
rewind(8)
|
|
|
|
! CHECK: call {{.*}}BeginEndfile
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
endfile(8)
|
|
|
|
! CHECK: call {{.*}}BeginWaitAll(%{{.*}}, %{{.*}}, %{{.*}})
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
wait(unit=8)
|
|
|
|
! CHECK: call {{.*}}BeginExternalListInput
|
|
! CHECK: call {{.*}}InputInteger
|
|
! CHECK: call {{.*}}InputReal32
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
read (8,*) i, f
|
|
|
|
! CHECK: call {{.*}}BeginExternalListOutput
|
|
! CHECK: call {{.*}}OutputInteger32
|
|
! CHECK: call {{.*}}OutputReal32
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
write (8,*) i, f
|
|
|
|
! CHECK: call {{.*}}BeginClose
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
close(8)
|
|
|
|
! CHECK: call {{.*}}BeginExternalListOutput
|
|
! CHECK: call {{.*}}OutputAscii
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
print *, "A literal string"
|
|
|
|
! CHECK: call {{.*}}BeginInquireUnit
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
inquire(4, EXIST=existsvar)
|
|
|
|
! CHECK: call {{.*}}BeginInquireFile
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
inquire(FILE="fail.f90", EXIST=existsvar)
|
|
|
|
! CHECK: call {{.*}}BeginInquireIoLength
|
|
! CHECK-COUNT-3: call {{.*}}OutputDescriptor
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
inquire (iolength=length) existsvar, length, a
|
|
end
|
|
|
|
! CHECK-LABEL: internalnamelistio
|
|
subroutine internalNamelistIO()
|
|
! CHECK: %[[internal:[0-9]+]] = fir.alloca !fir.char<1,12> {bindc_name = "internal"
|
|
character(12) :: internal
|
|
integer :: x = 123
|
|
namelist /nml/x
|
|
! CHECK: %[[internal_:[0-9]+]] = fir.convert %[[internal]] : (!fir.ref<!fir.char<1,12>>) -> !fir.ref<i8>
|
|
! CHECK: %[[cookie:[0-9]+]] = fir.call @_FortranAioBeginInternalListOutput(%[[internal_]]
|
|
! CHECK: fir.call @_FortranAioOutputNamelist(%[[cookie]]
|
|
! CHECK: fir.call @_FortranAioEndIoStatement(%[[cookie]]
|
|
write(internal,nml=nml)
|
|
end
|
|
|
|
! Tests the 4 basic inquire formats
|
|
! CHECK-LABEL: func @_QPinquire_test
|
|
subroutine inquire_test(ch, i, b)
|
|
character(80) :: ch
|
|
integer :: i
|
|
logical :: b
|
|
integer :: id_func
|
|
|
|
! CHARACTER
|
|
! CHECK: %[[sugar:.*]] = fir.call {{.*}}BeginInquireUnit
|
|
! CHECK: call {{.*}}InquireCharacter(%[[sugar]], %c{{.*}}, %{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i64, !fir.ref<i8>, i64) -> i1
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
inquire(88, name=ch)
|
|
|
|
! INTEGER
|
|
! CHECK: %[[oatmeal:.*]] = fir.call {{.*}}BeginInquireUnit
|
|
! CHECK: call @_FortranAioInquireInteger64(%[[oatmeal]], %c{{.*}}, %{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i64, !fir.ref<i64>, i32) -> i1
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
inquire(89, pos=i)
|
|
|
|
! LOGICAL
|
|
! CHECK: %[[snicker:.*]] = fir.call {{.*}}BeginInquireUnit
|
|
! CHECK: call @_FortranAioInquireLogical(%[[snicker]], %c{{.*}}, %[[b:.*]]) {{.*}}: (!fir.ref<i8>, i64, !fir.ref<i1>) -> i1
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
inquire(90, opened=b)
|
|
|
|
! PENDING with ID
|
|
! CHECK-DAG: %[[chip:.*]] = fir.call {{.*}}BeginInquireUnit
|
|
! CHECK-DAG: fir.call @_QPid_func
|
|
! CHECK: call @_FortranAioInquirePendingId(%[[chip]], %{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i32, !fir.ref<i1>) -> i1
|
|
! CHECK: call {{.*}}EndIoStatement
|
|
inquire(91, id=id_func(), pending=b)
|
|
end subroutine inquire_test
|
|
|
|
! CHECK-LABEL: @_QPboz
|
|
subroutine boz
|
|
! CHECK: fir.call @_FortranAioOutputInteger8(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i8) -> i1
|
|
! CHECK: fir.call @_FortranAioOutputInteger16(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i16) -> i1
|
|
! CHECK: fir.call @_FortranAioOutputInteger32(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i32) -> i1
|
|
! CHECK: fir.call @_FortranAioOutputInteger64(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i64) -> i1
|
|
! CHECK: fir.call @_FortranAioOutputInteger128(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i128) -> i1
|
|
print '(*(Z3))', 96_1, 96_2, 96_4, 96_8, 96_16
|
|
|
|
! CHECK: fir.call @_FortranAioOutputInteger32(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i32) -> i1
|
|
! CHECK: fir.call @_FortranAioOutputInteger64(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i64) -> i1
|
|
! CHECK: fir.call @_FortranAioOutputInteger64(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i64) -> i1
|
|
print '(I3,2Z44)', 40, 2**40_8, 2**40_8+1
|
|
|
|
! CHECK: fir.call @_FortranAioOutputInteger32(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i32) -> i1
|
|
! CHECK: fir.call @_FortranAioOutputInteger64(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i64) -> i1
|
|
! CHECK: fir.call @_FortranAioOutputInteger64(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i64) -> i1
|
|
print '(I3,2I44)', 40, 1099511627776, 1099511627777
|
|
|
|
! CHECK: fir.call @_FortranAioOutputInteger32(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i32) -> i1
|
|
! CHECK: fir.call @_FortranAioOutputInteger64(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i64) -> i1
|
|
! CHECK: fir.call @_FortranAioOutputInteger64(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i64) -> i1
|
|
print '(I3,2O44)', 40, 2**40_8, 2**40_8+1
|
|
|
|
! CHECK: fir.call @_FortranAioOutputInteger32(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i32) -> i1
|
|
! CHECK: fir.call @_FortranAioOutputInteger64(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i64) -> i1
|
|
! CHECK: fir.call @_FortranAioOutputInteger64(%{{.*}}, %{{.*}}) {{.*}}: (!fir.ref<i8>, i64) -> i1
|
|
print '(I3,2B44)', 40, 2**40_8, 2**40_8+1
|
|
end
|