URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_1.f90] - Blame information for rev 816

Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! Check that [...] style array constructors work`
3			`program bracket_array_constructor`
4			`implicit none`
5			`integer :: a(4), i`
6
7			`a = [ 1, 2, 3, 4 ]`
8			`do i = 1, size(a)`
9			`if (a(i) /= i) call abort()`
10			`end do`
11
12			`a = [ (/ 1, 2, 3, 4 /) ]`
13			`do i = 1, size(a)`
14			`if (a(i) /= i) call abort()`
15			`end do`
16
17			`end program bracket_array_constructor`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_1.f90] - Blame information for rev 816