18 lines
371 B
Fortran
18 lines
371 B
Fortran
! { dg-do run }
|
|
! Check that [...] style array constructors work
|
|
program bracket_array_constructor
|
|
implicit none
|
|
integer :: a(4), i
|
|
|
|
a = [ 1, 2, 3, 4 ]
|
|
do i = 1, size(a)
|
|
if (a(i) /= i) call abort()
|
|
end do
|
|
|
|
a = [ (/ 1, 2, 3, 4 /) ]
|
|
do i = 1, size(a)
|
|
if (a(i) /= i) call abort()
|
|
end do
|
|
|
|
end program bracket_array_constructor
|