mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
18 lines
359 B
Fortran
18 lines
359 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) STOP 1
|
|
end do
|
|
|
|
a = [ (/ 1, 2, 3, 4 /) ]
|
|
do i = 1, size(a)
|
|
if (a(i) /= i) STOP 2
|
|
end do
|
|
|
|
end program bracket_array_constructor
|