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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_1.f90] - Blame information for rev 414

Go to most recent revision | 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	302	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_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_1.f90] - Blame information for rev 414