802ca041bd
Modified the following tests: array-elemental-calls-2.f90, array-expression-assumed-size.f90, array-temp.f90, array-user-def-assignments.f90, array.f90
174 lines
8.6 KiB
Fortran
174 lines
8.6 KiB
Fortran
! RUN: bbc -emit-hlfir -o - %s | FileCheck %s
|
|
|
|
! CHECK-LABEL: fir.global @block_
|
|
! CHECK: %[[VAL_4:.*]] = fir.zero_bits tuple<!fir.array<5x5xf32>>
|
|
! CHECK: %[[VAL_5:.*]] = fir.undefined !fir.array<5x5xf32>
|
|
! CHECK: %[[C1:.*]] = arith.constant 1.000000e+00 : f32
|
|
! CHECK: %[[VAL_6:.*]] = fir.insert_on_range %[[VAL_5]], %[[C1]] from (0, 0) to (1, 0) : (!fir.array<5x5xf32>, f32) -> !fir.array<5x5xf32>
|
|
! CHECK: %[[C0:.*]] = arith.constant 0.000000e+00 : f32
|
|
! CHECK: %[[VAL_7:.*]] = fir.insert_on_range %[[VAL_6]], %[[C0]] from (2, 0) to (4, 0) : (!fir.array<5x5xf32>, f32) -> !fir.array<5x5xf32>
|
|
! CHECK: %[[C1_2:.*]] = arith.constant 1.000000e+00 : f32
|
|
! CHECK: %[[VAL_8:.*]] = fir.insert_on_range %[[VAL_7]], %[[C1_2]] from (0, 1) to (1, 1) : (!fir.array<5x5xf32>, f32) -> !fir.array<5x5xf32>
|
|
! CHECK: %[[C0_2:.*]] = arith.constant 0.000000e+00 : f32
|
|
! CHECK: %[[VAL_9:.*]] = fir.insert_value %[[VAL_8]], %[[C0_2]], [2 : index, 1 : index] : (!fir.array<5x5xf32>, f32) -> !fir.array<5x5xf32>
|
|
! CHECK: %[[C24:.*]] = arith.constant 2.400000e+00 : f32
|
|
! CHECK: %[[VAL_10:.*]] = fir.insert_value %[[VAL_9]], %[[C24]], [3 : index, 1 : index] : (!fir.array<5x5xf32>, f32) -> !fir.array<5x5xf32>
|
|
! CHECK: %[[C0_3:.*]] = arith.constant 0.000000e+00 : f32
|
|
! CHECK: %[[VAL_11:.*]] = fir.insert_value %[[VAL_10]], %[[C0_3]], [4 : index, 1 : index] : (!fir.array<5x5xf32>, f32) -> !fir.array<5x5xf32>
|
|
! CHECK: %[[C1_3:.*]] = arith.constant 1.000000e+00 : f32
|
|
! CHECK: %[[VAL_12:.*]] = fir.insert_on_range %[[VAL_11]], %[[C1_3]] from (0, 2) to (1, 2) : (!fir.array<5x5xf32>, f32) -> !fir.array<5x5xf32>
|
|
! CHECK: %[[C0_4:.*]] = arith.constant 0.000000e+00 : f32
|
|
! CHECK: %[[VAL_13:.*]] = fir.insert_value %[[VAL_12]], %[[C0_4]], [2 : index, 2 : index] : (!fir.array<5x5xf32>, f32) -> !fir.array<5x5xf32>
|
|
! CHECK: %[[C24_2:.*]] = arith.constant 2.400000e+00 : f32
|
|
! CHECK: %[[VAL_14:.*]] = fir.insert_value %[[VAL_13]], %[[C24_2]], [3 : index, 2 : index] : (!fir.array<5x5xf32>, f32) -> !fir.array<5x5xf32>
|
|
! CHECK: %[[C0_5:.*]] = arith.constant 0.000000e+00 : f32
|
|
! CHECK: %[[VAL_15:.*]] = fir.insert_on_range %[[VAL_14]], %[[C0_5]] from (4, 2) to (2, 3) : (!fir.array<5x5xf32>, f32) -> !fir.array<5x5xf32>
|
|
! CHECK: %[[C24_3:.*]] = arith.constant 2.400000e+00 : f32
|
|
! CHECK: %[[VAL_16:.*]] = fir.insert_value %[[VAL_15]], %[[C24_3]], [3 : index, 3 : index] : (!fir.array<5x5xf32>, f32) -> !fir.array<5x5xf32>
|
|
! CHECK: %[[C0_6:.*]] = arith.constant 0.000000e+00 : f32
|
|
! CHECK: %[[VAL_17:.*]] = fir.insert_on_range %[[VAL_16]], %[[C0_6]] from (4, 3) to (4, 4) : (!fir.array<5x5xf32>, f32) -> !fir.array<5x5xf32>
|
|
! CHECK: %[[VAL_18:.*]] = fir.insert_value %[[VAL_4]], %[[VAL_17]], [0 : index] : (tuple<!fir.array<5x5xf32>>, !fir.array<5x5xf32>) -> tuple<!fir.array<5x5xf32>>
|
|
! CHECK: fir.has_value %[[VAL_18]] : tuple<!fir.array<5x5xf32>>
|
|
|
|
subroutine s(i,j,k,ii,jj,kk,a1,a2,a3,a4,a5,a6,a7)
|
|
integer i, j, k, ii, jj, kk
|
|
|
|
! extents are compile-time constant
|
|
real a1(10,20)
|
|
integer a2(30,*)
|
|
real a3(2:40,3:50)
|
|
integer a4(4:60, 5:*)
|
|
|
|
! extents computed at run-time
|
|
real a5(i:j)
|
|
integer a6(6:i,j:*)
|
|
real a7(i:70,7:j,k:80)
|
|
|
|
! CHECK-LABEL: @_QPs
|
|
! CHECK: %[[a1:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QFsEa1"}
|
|
! CHECK: %[[a2:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QFsEa2"}
|
|
! CHECK: %[[a3:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QFsEa3"}
|
|
! CHECK: %[[a4:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QFsEa4"}
|
|
! CHECK: %[[ii:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QFsEii"}
|
|
! CHECK: %[[jj:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QFsEjj"}
|
|
! CHECK: %[[kk:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QFsEkk"}
|
|
! CHECK: %[[a5:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QFsEa5"}
|
|
! CHECK: %[[a6:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QFsEa6"}
|
|
! CHECK: %[[a7:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QFsEa7"}
|
|
|
|
! CHECK: fir.call @_FortranAioBeginExternalListOutput
|
|
! CHECK: %[[ii_val:.*]] = fir.load %[[ii]]#0
|
|
! CHECK: %[[jj_val:.*]] = fir.load %[[jj]]#0
|
|
! CHECK: %[[addr:.*]] = hlfir.designate %[[a1]]#0 ({{.*}}, {{.*}})
|
|
! CHECK: %[[val:.*]] = fir.load %[[addr]]
|
|
! CHECK: fir.call @_FortranAioOutputReal32({{.*}}, %[[val]])
|
|
! CHECK: fir.call @_FortranAioEndIoStatement
|
|
print *, a1(ii,jj)
|
|
|
|
! CHECK: fir.call @_FortranAioBeginExternalListOutput
|
|
! CHECK: %[[addr:.*]] = hlfir.designate %[[a2]]#0 ({{.*}}, {{.*}})
|
|
! CHECK: %[[val:.*]] = fir.load %[[addr]]
|
|
! CHECK: fir.call @_FortranAioOutputInteger32({{.*}}, %[[val]])
|
|
! CHECK: fir.call @_FortranAioEndIoStatement
|
|
print *, a2(ii,jj)
|
|
|
|
! CHECK: fir.call @_FortranAioBeginExternalListOutput
|
|
! CHECK: %[[addr:.*]] = hlfir.designate %[[a3]]#0 ({{.*}}, {{.*}})
|
|
! CHECK: %[[val:.*]] = fir.load %[[addr]]
|
|
! CHECK: fir.call @_FortranAioOutputReal32({{.*}}, %[[val]])
|
|
! CHECK: fir.call @_FortranAioEndIoStatement
|
|
print *, a3(ii,jj)
|
|
|
|
! CHECK: fir.call @_FortranAioBeginExternalListOutput
|
|
! CHECK: %[[addr:.*]] = hlfir.designate %[[a4]]#0 ({{.*}}, {{.*}})
|
|
! CHECK: %[[val:.*]] = fir.load %[[addr]]
|
|
! CHECK: fir.call @_FortranAioOutputInteger32({{.*}}, %[[val]])
|
|
! CHECK: fir.call @_FortranAioEndIoStatement
|
|
print *, a4(ii,jj)
|
|
|
|
! CHECK: fir.call @_FortranAioBeginExternalListOutput
|
|
! CHECK: %[[addr:.*]] = hlfir.designate %[[a5]]#0 ({{.*}})
|
|
! CHECK: %[[val:.*]] = fir.load %[[addr]]
|
|
! CHECK: fir.call @_FortranAioOutputReal32({{.*}}, %[[val]])
|
|
! CHECK: fir.call @_FortranAioEndIoStatement
|
|
print *, a5(kk)
|
|
|
|
! CHECK: fir.call @_FortranAioBeginExternalListOutput
|
|
! CHECK: %[[addr:.*]] = hlfir.designate %[[a6]]#0 ({{.*}}, {{.*}})
|
|
! CHECK: %[[val:.*]] = fir.load %[[addr]]
|
|
! CHECK: fir.call @_FortranAioOutputInteger32({{.*}}, %[[val]])
|
|
! CHECK: fir.call @_FortranAioEndIoStatement
|
|
print *, a6(ii, jj)
|
|
|
|
! CHECK: fir.call @_FortranAioBeginExternalListOutput
|
|
! CHECK: %[[addr:.*]] = hlfir.designate %[[a7]]#0 ({{.*}}, {{.*}}, {{.*}})
|
|
! CHECK: %[[val:.*]] = fir.load %[[addr]]
|
|
! CHECK: fir.call @_FortranAioOutputReal32({{.*}}, %[[val]])
|
|
! CHECK: fir.call @_FortranAioEndIoStatement
|
|
print *, a7(kk, jj, ii)
|
|
|
|
end subroutine s
|
|
|
|
! CHECK-LABEL: range
|
|
subroutine range()
|
|
! Compile-time initalized arrays
|
|
integer, dimension(10) :: a0
|
|
real, dimension(2,3) :: a1
|
|
integer, dimension(3,4) :: a2
|
|
integer, dimension(2,3,4) :: a3
|
|
complex, dimension(2,3) :: c0, c1
|
|
|
|
a0 = (/1, 2, 3, 3, 3, 3, 3, 3, 3, 3/)
|
|
a1 = reshape((/3.5, 3.5, 3.5, 3.5, 3.5, 3.5/), shape(a1))
|
|
a2 = reshape((/1, 3, 3, 5, 3, 3, 3, 3, 9, 9, 9, 8/), shape(a2))
|
|
a3 = reshape((/1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12/), shape(a3))
|
|
|
|
c0 = reshape((/(1.0, 1.5), (2.0, 2.5), (3.0, 3.5), (4.0, 4.5), (5.0, 5.5), (6.0, 6.5)/), shape(c0))
|
|
data c1/6 * (0.0, 0.0)/
|
|
end subroutine range
|
|
|
|
! CHECK-LABEL: rangeglobal
|
|
subroutine rangeGlobal()
|
|
integer, dimension(6) :: a0 = (/ 1, 1, 2, 2, 3, 3 /)
|
|
|
|
end subroutine rangeGlobal
|
|
|
|
! CHECK-LABEL: hugeglobal
|
|
subroutine hugeGlobal()
|
|
integer, parameter :: D = 500
|
|
integer, dimension(D, D) :: a
|
|
|
|
a = reshape((/(i, i = 1, D * D)/), shape(a))
|
|
end subroutine hugeGlobal
|
|
|
|
block data
|
|
real(selected_real_kind(6)) :: x(5,5)
|
|
common /block/ x
|
|
data x(1,1), x(2,1), x(3,1) / 1, 1, 0 /
|
|
data x(1,2), x(2,2), x(4,2) / 1, 1, 2.4 /
|
|
data x(1,3), x(2,3), x(4,3) / 1, 1, 2.4 /
|
|
data x(4,4) / 2.4 /
|
|
end
|
|
|
|
! c1 data
|
|
! CHECK: fir.global internal @_QFrangeEc1(dense<(0.000000e+00,0.000000e+00)> : tensor<3x2xcomplex<f32>>) : !fir.array<2x3xcomplex<f32>>
|
|
|
|
! a0 array constructor
|
|
! CHECK: fir.global internal @_QQro.10xi4.{{.*}}(dense<[1, 2, 3, 3, 3, 3, 3, 3, 3, 3]> : tensor<10xi32>) constant : !fir.array<10xi32>
|
|
|
|
! a1 array constructor
|
|
! CHECK: fir.global internal @_QQro.2x3xr4.{{.*}}(dense<3.500000e+00> : tensor<3x2xf32>) constant : !fir.array<2x3xf32>
|
|
|
|
! a2 array constructor
|
|
! CHECK: fir.global internal @_QQro.3x4xi4.{{.*}}(dense<{{\[\[1, 3, 3], \[5, 3, 3], \[3, 3, 9], \[9, 9, 8]]}}> : tensor<4x3xi32>) constant : !fir.array<3x4xi32>
|
|
|
|
! a3 array constructor
|
|
! CHECK: fir.global internal @_QQro.2x3x4xi4.{{.*}}(dense<{{\[\[\[1, 1], \[2, 2], \[3, 3]], \[\[4, 4], \[5, 5], \[6, 6]], \[\[7, 7], \[8, 8], \[9, 9]], \[\[10, 10], \[11, 11], \[12, 12]]]}}> : tensor<4x3x2xi32>) constant : !fir.array<2x3x4xi32>
|
|
|
|
! c0 array constructor
|
|
! CHECK: fir.global internal @_QQro.2x3xz4.{{.*}}(dense<{{\[}}[(1.000000e+00,1.500000e+00), (2.000000e+00,2.500000e+00)], [(3.000000e+00,3.500000e+00), (4.000000e+00,4.500000e+00)], [(5.000000e+00,5.500000e+00), (6.000000e+00,6.500000e+00)]]> : tensor<3x2xcomplex<f32>>) constant : !fir.array<2x3xcomplex<f32>>
|
|
|
|
! CHECK: fir.global internal @_QFrangeglobal{{.*}}(dense<[1, 1, 2, 2, 3, 3]> : tensor<6xi32>) : !fir.array<6xi32>
|
|
|
|
! CHECK: fir.global internal @_QQro.500x500xi4.{{.*}}(dense<{{.*}}> : tensor<500x500xi32>) constant : !fir.array<500x500xi32>
|