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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [pr19269-1.f90] - Blame information for rev 303

Go to most recent revision | Details | Compare with Previous | View Log


program main
  call test (reshape ((/ 'a', 'b', 'c', 'd' /), (/ 2, 2 /)))
contains
  subroutine test (a)
    character (len = *), dimension (:, :) :: a
 
    if (size (a, 1) .ne. 2) call abort
    if (size (a, 2) .ne. 2) call abort
    if (len (a) .ne. 1) call abort
 
    if (a (1, 1) .ne. 'a') call abort
    if (a (2, 1) .ne. 'b') call abort
    if (a (1, 2) .ne. 'c') call abort
    if (a (2, 2) .ne. 'd') call abort
  end subroutine test
end program main

Line No.	Rev	Author	Line
1	303	jeremybenn	`program main`
2			`call test (reshape ((/ 'a', 'b', 'c', 'd' /), (/ 2, 2 /)))`
3			`contains`
4			`subroutine test (a)`
5			`character (len = *), dimension (:, :) :: a`
6
7			`if (size (a, 1) .ne. 2) call abort`
8			`if (size (a, 2) .ne. 2) call abort`
9			`if (len (a) .ne. 1) call abort`
10
11			`if (a (1, 1) .ne. 'a') call abort`
12			`if (a (2, 1) .ne. 'b') call abort`
13			`if (a (1, 2) .ne. 'c') call abort`
14			`if (a (2, 2) .ne. 'd') call abort`
15			`end subroutine test`
16			`end program main`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [pr19269-1.f90] - Blame information for rev 303