Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/array_constructor_1.f90 @ 120:f93fa5091070

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix conv1.c
author mir3636
date Thu, 08 Mar 2018 14:53:42 +0900
parents 04ced10e8804
children 84e7813d76e9
line wrap: on
line source

! { 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