! RUN: bbc %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 @_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