1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
! RUN: bbc -hlfir=false %s -o - | FileCheck %s
! CHECK-LABEL: func @_QPi
subroutine i
implicit none
integer :: ctemp(10) = (/1,2,3,4,5,6,7,8,9,22/)
print *, ctemp(1:10)
end subroutine i
! CHECK-LABEL: func @_QPs
subroutine s
integer, parameter :: LONGreal = 8
real (kind = LONGreal), dimension(-1:11) :: x = (/0,0,0,0,0,0,0,0,0,0,0,0,0/)
real (kind = LONGreal), dimension(0:12) :: g = (/0,0,0,0,0,0,0,0,0,0,0,0,0/)
real (kind = LONGreal) :: gs(13)
x(1) = 4.0
g(1) = 5.0
gs = g(0:12:1) + x(11:(-1):(-1))
print *, gs
!print *, dot_product(g(0:12:1), x(11:(-1):(-1)))
end subroutine s
! CHECK-LABEL: func @_QPs2
subroutine s2
real :: x(10)
x = 0.0
! CHECK: fir.call @_FortranAioBeginExternalListOutput
print *, x
! CHECK: %[[s:.*]] = fir.slice {{.*}} !fir.slice<1>
! CHECK: %[[p:.*]] = fir.array_coor %{{.*}} [%[[s]]] %
! CHECK: fir.store %{{.*}} to %[[p]] : !fir.ref<f32>
x(1:10:3) = 2.0
! CHECK: fir.call @_FortranAioBeginExternalListOutput
print *, x
end subroutine s2
! CHECK-LABEL: func @_QQmain
program main
integer :: A(10)
A(1) = 1
A(2) = 2
A(3) = 3
print *, A
! CHECK: %[[A:.*]] = fir.address_of(@_QFEa)
! CHECK: %[[shape:.*]] = fir.shape %c10
! CHECK: %[[slice:.*]] = fir.slice %
! CHECK: fir.embox %[[A]](%[[shape]]) [%[[slice]]] :
print*, A(1:3:1)
call s
call i
end program main
|
