program continue_compilation_3
use continue_compilation_3_fake_module

implicit none
integer :: a(5), b(10), x1(3,2), c, a1(3), i, k = 3, x
character(4) :: str(3)
integer, parameter :: x3 = 2
character(len=8) :: s, s1 = "lfortran"
rea :: test_real(12)
real :: test_re()
int ::

type :: t
    integer :: xx
end type
type(t) :: y

! array_01_cc
a = []
! array_02_cc
print *, [[[], [[]]], [[]], []]
print *, [[[], [[]]], []]
! array_03_cc
b(:,:) = 1
b(:,:) = 2
! array_04_cc
y%xx(:) = 1
! array_06_cc
str(1, 2)(:) = '1234'
str(1,2,3)(:) = '1234'
! array_constructor_with_asterisk_in_type_spec_cc
print *, [character(*) :: "a", "b", "ball", "cat"]
print *, [character(*) :: "a2", "b2", "ball2", "cat2"]
!array_shape_01_cc
x1 = reshape([1,2,3,4],[2,2])
x1 = reshape([1,2,3,4],[1,2])
!arithmetic_if1_cc
i = -3
c = 0
if ("yy") 1, 2, 3
1 c = c + 1
2 c = c + 2
3 c = c + 4
print *, c
if (c /= 7) error stop
!array_size_01_cc
i = size(a1, 1, 4, kind=4)
i = size()
!assign_01_cc
x3 = 1
print *, x3
! data_implied_do1
data(a1(i), i=1, k) / 1, 2, 3 /
! data_implied_do2
data(a1(i), i=1, 3, k) / 1, 2, 3 /
! data_implied_do3
data(a1(i), i=k, 3) / 1, 2, 3 /

!program_variable
i = foo
!rewind_invalid_kwarg1
rewind(end="world")
!Same_type
print *, same_type_as(1.0, 1.0)
!sign_01
print *, sign(1, 1_8)
!specific_type_intrinsic
print*, dabs(1)
!sqrt_neg
print *, sqrt(-1.0)
!string_binop
print *, "a" + "b"
!string_negative_start_index
s = "lfortran"
print*, "s:", s(-1:4)
!string_slice
print*, s1(-2:6)
!string_slice2
print*, "Length of s:", len(s)
print*, s1(1: 9)
!substring_noninteger_endidx
print*, s1(1:5.2)
!substring_noninteger_startidx
print*, s1(1.1:5)
!substring_noninteger_stride
print*, s(1:5:2.2)
!type_mismatch1
x = "x"
!type_mismatch2
x = 5 + "x"
!subroutine1, subroutine2, subroutine3, subroutine5
call bpe()
i = bpe()
print *, xx
test_re = 1245.13
c(1) = 1

integer :: i_incorrect_pragma
    !LF$unroll 4  ! Error: Missing space after `!LF$`
    do i_incorrect_pragma = 1, 10
      print *, i_incorrect_pragma
end do

contains
subroutine bpe()
    print *, size(bpe)
    bpe = d
end subroutine
    
end program
