array_constructor_5.f90

来自「用于进行gcc测试」· F90 代码 · 共 12 行

! { dg-do run }
! PR22327
program array_constructor
    implicit none
    integer :: a(6), i
    i = 6
    a = (/ 1, 2, 3, 4, 5, i /)
    do i = 1, 6
        if (a(i) /= i) call abort()
    end do
end program array_constructor